CHAPTER 2 


2.1 

IF x < 10 THEN 
IF x < 5 THEN 
x = 5 
ELSE 

PRINT X 
END IF 
ELSE 
DO 

IF x < 50 EXIT 
x = x - 5 
END DO 
END IF 


Step 1: Start 

Step 2: Initialize sum and count to zero 
Step 3: Examine top card. 

Step 4: If it says “end of data” proceed to step 9; otherwise, proceed to next step. 
Step 5: Add value from top card to sum. 

Step 6: Increase count by 1. 

Step 7 : Discard top card 
Step 8: Return to Step 3. 

Step 9: Is the count greater than zero? 

If yes, proceed to step 1 0. 

If no, proceed to step 1 1 . 

Step 10: Calculate average = sum/ count 
Step 1 1 : End 

2.3 






2.4 


Students could implement the subprogram in any number of languages. The following 
Fortran 90 program is one example. It should be noted that the availability of complex 
variables in Fortran 90, would allow this subroutine to be made even more concise. 
However, we did not exploit this feature, in order to make the code more compatible with 
Visual BASIC, MATLAB, etc. 

PROGRAM Rootfind 
IMPLICIT NONE 
INTEGER: : ier 

REAL:: a, b, c, rl, 11, r2, i2 
DATA a, b, c/1 . , 5 . , 2 ./ 

CALL Roots (a, b, c, ier, rl, il, r2, 12) 

IF (ier .EQ. 0) THEN 
PRINT *, rl , il , " i" 

PRINT *, r2,i2," i" 

ELSE 

PRINT *, "No roots" 

END IF 
END 

SUBROUTINE Roots (a, b, c, ier, rl, il, r2, 12 ) 

IMPLICIT NONE 
INTEGER: : ier 

REAL::a, b, c, d, rl, il, r2, i2 

r 1=0 . 

r2=0 . 

il = 0 . 

i2=0 . 

IF (a .EQ. 0.) THEN 
IF (b <> 0) THEN 
rl = -c/b 
ELSE 

ier = 1 
END IF 
ELSE 

d = b**2 - 4 . *a*c 
IF (d >= 0) THEN 

rl = (-b t SQRT (d) ) / (2*a) 
r2 = (-b - SQRT (d) ) / (2*a) 

ELSE 

rl = -b/ ( 2 * a ) 
r2 = rl 

11 = SQRT (ABS (d) ) / (2*a) 

12 = -il 
END IF 

END IF 
END 


The answers for the 3 test cases are: (a) -0.438, -4.56; (b) 0.5; (c) -1.25 + 2.33/; -1.25 - 
2.33 i. 

Several features of this subroutine bear mention: 

• The subroutine does not involve input or output. Rather, information is passed in and out 
via the arguments. This is often the preferred style, because the I/O is left to the 
discretion of the programmer within the calling program. 

• Note that an error code is passed (IER = 1 ) for the case where no roots are possible. 



2.5 The development of the algorithm hinges on recognizing that the series approximation of the 
sine can be represented concisely by the summation, 


I 


2i-\ 

X 

(2z - 1) ! 


where i = the order of the approximation. The following algorithm implements this 
summation: 


Step 

Step 

Step 

Step 

Step 

Step 

Step 

Step 


Step 


Step 

Step 

Step 

Step 


1: Start 

2: Input value to be evaluated x and maximum order n 
3 : Set order (i) equal to one 

4: Set accumulator for approximation (approx) to zero 
5 : Set accumulator for factorial product (fact) equal to one 
6: Calculate true value of sin(x) 

7 : If order is greater than n then proceed to step 1 3 
Otherwise, proceed to next step 
8: Calculate the approximation with the formula 

2i-i 

approx = approx + (— 1 ) 1-1 

factor 

9: Determine the error 


%error = 


true -approx 
true 



10: Increment the order by one 
1 1 : Determine the factorial for the next iteration 
factor = factor • (2 • i — 2) • (2 • i — 1) 

12: Return to step 7 
13: End 









2.7 The following Fortran 90 code was developed based on the pseudocode from Prob. 2.6: 

PROGRAM Series 
IMPLICIT NONE 
INTEGER: :n 
REAL : : x 
n = 15 
x = 1 . 5 

CALL Sincomp(n,x) 

END 

SUBROUTINE Sincomp(n,x) 

IMPLICIT NONE 
INTEGER: :n, i, fac 
REAL : : x, tru, approx, er 
i = 1 

tru = SIN (x) 
approx = 0 . 
fac = 1 

PRINT *, " order true approx 

DO 

IF (i > n) EXIT 

approx = approx + (-1) ** ( i — 1 ) * x ** (2*i 

er = ABS (tru - approx) / tru) * 100 
PRINT *, i, tru, approx, er 
i = i + 1 

fac = fac * ( 2 *i— 2 ) * (2*i-l) 

END DO 
END 

OUTPUT: 


:der 

true 

approx 

error 

1 

0.9974950 

1 . 500000 

-50.37669 

2 

0.9974950 

0.9375000 

6.014566 

3 

0.9974950 

1 . 000781 

-0.3294555 

4 

0.9974950 

0 . 9973912 

1 . 0403229E-02 

5 

0.9974950 

0 . 9974971 

-2 . 1511559E-04 

6 

0.9974950 

0.9974950 

0.0000000E+00 

7 

0.9974950 

0 . 9974951 

-1 . 1950866E-05 

8 

0.9974950 

0 . 9974949 

1 . 1950866E-05 

9 

0.9974950 

0 . 9974915 

3 . 5255053E-04 

10 

0.9974950 

0 . 9974713 

2 . 3782223E-03 

11 

0.9974950 

0 . 9974671 

2 . 7965026E-03 

12 

0.9974950 

0 . 9974541 

4 . 0991469E-03 

13 

0.9974950 

0.9974663 

2 . 8801586E-03 

14 

0.9974950 

0 . 9974280 

6 . 7163869E-03 

15 

0.9974950 

0 . 9973251 

1 . 7 035 95 9E-02 


Press any key to continue 

The errors can be plotted versus the number of terms: 
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error" 
- 1) / fac 




Interpretation: The absolute percent relative error drops until at n = 6, it actually yields a 
perfect result (pure luck!). Beyond, n = 8, the errors starts to grow. This occurs because of 
round-off error, which will be discussed in Chap. 3. 

2.8 AQ = 442/5 = 88.4 
AH = 548/6 = 91.33 

without final 

AQ = 30(88.4) + 30(91. 33) 

30 + 30 

with final 

AC _ 30(88.4) + 30(91.33) + 40(91) = 9Q 
30 + 30 

The following pseudocode provides an algorithm to program this problem. Notice that the 
input of the quizzes and homeworks is done with logical loops that terminate when the user 
enters a negative grade: 

INPUT number, name 
INPUT WQ, WH, WF 
nq = 0 
sumq = 0 
DO 

INPUT quiz (enter negative to signal end of quizzes) 

IF quiz < 0 EXIT 
nq = nq + 1 
sumq = sumq + quiz 
END DO 

AQ = sumq / nq 
PRINT AQ 
nh = 0 
sumh = 0 

PRINT "homeworks " 

DO 

INPUT homework (enter negative to signal end of homeworks) 

IF homework < 0 EXIT 
nh = nh + 1 

sumh = sumh + homework 
END DO 

AH = sumh / nh 

PRINT "Is there a final grade (y or n) " 

INPUT answer 
IF answer = "y" THEN 
INPUT FE 

AG = (WQ * AQ + WH * AH + WF * FE) / (WQ + WH + WF) 

ELSE 

AG = (WQ * AQ + WH * AH) / (WQ + WH) 

END IF 

PRINT number, name$, AG 
END 


2.9 



n 


F 

0 $100,000.00 

1 $108,000.00 

2 $116,640.00 

3 $125,971.20 

4 $136,048.90 

5 $146,932.81 


24 $634,118.07 

25 $684,847.52 

2.10 Programs vary, but results are 

Bismarck = -10.842 t = 0to59 
Yuma = 33.040 t = 180 to 242 

2.11 


n 

A 

1 

40,250.00 

2 

21,529.07 

3 

15,329.19 

4 

12,259.29 

5 

10,441.04 


2.12 


Step 

v(12) 

2 

49.96 

1 

48.70 

0.5 

48.09 


Error is halved when step is halved 

2.13 

Fortran 90 


e, (%) 
-5.2 
- 2.6 
-1.3 


VBA 






Subroutine BubbleFor(n, b) 

Option Explicit 

Implicit None 

Sub Bubble (n, b) 

! sorts an array in ascending 

' sorts an array in ascending 

! order using the bubble sort 

'order using the bubble sort 

Integer(4) : :m, i, n 

Dim m As Integer, i As Integer 

Logical : : switch 

Dim switch As Boolean 

Real: :a(n) ,b(n) , dum 

Dim dum As Single 

m = n - 1 

m = n - 1 

Do 

Do 

switch = .False. 

switch = False 

Do i = 1 , m 

For i = 1 To m 

If (b ( i ) > b ( i + 1) ) Then 

If b(i) > b(i + 1) Then 

dum = b ( i ) 

dum = b ( i ) 

b(i) = b(i + 1) 

b ( i ) = b ( i + 1 ) 

b ( i + 1 ) = dum 

b ( i + 1 ) = dum 

switch = .True. 

switch = True 

End I f 

End If 

End Do 

Next i 

If (switch == .False.) Exit 

If switch = False Then Exit Do 

m = m - 1 

m = m - 1 

End Do 

Loop 

End 

End Sub 


2.14 Here is a flowchart for the algorithm: 



Here is a program in VBA: 

Option Explicit 


Function Vol (R, d) 






Dim VI As Single, v2 As Single, pi As Single 


pi = 4 * Atn ( 1 ) 

If d < R Then 

Vol =pi*d / '3/3 
Elself d <= 3 * R Then 

VI = pi * R A 3 / 3 

v2 = pi * R A 2 * (d - R) 

Vol = VI + v2 
Else 

Vol = "overtop" 

End If 

End Function 


The results are 


R 

d 

Volume 

1 

0.3 

0.028274 

1 

0.8 

0.536165 

1 

1 

1.047198 

1 

2.2 

4.817109 

1 

3 

7.330383 

1 

3.1 

overtop 


2.15 Here is a flowchart for the algorithm: 



And here is a VBA function procedure to implement it: 

Option Explicit 


Function Polar (x, y) 











Dim th As Single, r As Single 
Const pi As Single = 3.141593 


r = Sqr (x A 2 + y A 2 ) 

If x < 0 Then 
If y > 0 Then 

th = Atn(y / x) t pi 
Elself y < 0 Then 

th = Atn (y / x) - pi 
Else 

th = pi 
End If 
Else 

If y > 0 Then 
th = pi / 2 
Elself y < 0 Then 
th = -pi / 2 
Else 
th = 0 
End If 
End If 

Polar = th * 180 / pi 
End Function 


The results are: 


X 

y 

e 

1 

i 

90 

1 

-i 

-90 

1 

0 

0 

-1 

i 

135 

-1 

-i 

-135 

-1 

0 

180 

0 

i 

90 

0 

-i 

-90 

0 

0 

0 
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4.18 f(x) = x-l-l/2*sin(x) 
f '(x) = l-l/2*cos(x) 
f "(x) = l/2*sin(x) 
f '"(x) = l/2*cos(x) 
f IV (x) = -l/2*sin(x) 


Using the Taylor Series Expansion (Equation 4.5 in the book), we obtain the following 
1 st , 2 nd , 3 rd , and 4 th Order Taylor Series functions shown below in the Matlab program- 
fl, f2, f4. Note the 2 nd and 3 rd Order Taylor Series functions are the same. 

From the plots below, we see that the answer is the 4 th Order Tavlor Series expansion . 


x=0 : 0.001 : 3.2; 
f=x-l-0 . 5* sin (x ) ; 
subplot (2,2,1) ; 

plot (x, f) ; grid; title (' f (x) =x-l-0 . 5* sin (x) ' ) ;hold on 
fl=x-l . 5; 

el=abs (f-fl) ; %Calculates the absolute value of the 

difference /error 
subplot (2,2,2) ; 

plot (x, el ); grid; title (' 1st Order Taylor Series Error'); 

f2=x-l .5+0.25. * ( (x-0.5*pi) . A 2 ) ; 
e2=abs (f-f2) ; 
subplot (2,2,3) ; 

plot (x, e2 ); grid; title (' 2nd/3rd Order Taylor Series Error'); 

f4=x-l .5+0.25. * ( (x-0.5*pi) . *2) - (1/48) * ( (x-0.5*pi) . / '4); 
e4=abs (f 4-f ) ; 
subplot (2,2,4) ; 

plot (x, e4 ); grid; title (' 4th Order Taylor Series Error' );hold off 


f(x)=x-1 -0.5*sin(x) 


1st Order Taylor Series Error 
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4.19 EXCEL WORKSHEET AND PLOTS 


First Derivative Approximations Compared to Theoretical 



Theoretical 

Backward 

Centered 

— - Forward 



Approximations of the 2nd Derivative 



f ’(x)-Theory 

f '(x)-Backward 

f '(x)-Centered 

f'(x)-Forward 


X 

f(\i fiv-n f(\+n 

fCxzl) 

ffx+2) 

f^xt 

F'lxl- f'lxVCeiit f'lxl- 






Theory 

Back 

Forw 

-2.000 

0.000 

-2.891 2.141 

3.625 

3.625 

-12.000 

150.500 

-12.000 

■10.500 

-1.750 

2.141 

0.000 3.625 

-2.891 

4.547 

-10.500 

-12.000 

-10.500 

-9.000 

-1.500 

3.625 

2.141 4.547 

0.000 

5.000 

-9.000 

-10.500 

-9.000 

-7.500 

-1.250 

4.547 

3.625 5.000 

2.141 

5.078 

-7.500 

-9.000 

-7.500 

-6.000 

-1.000 

5.000 

4.547 5.078 

3.625 

4.875 

-6.000 

-7.500 

-6.000 

-4.500 

-0.750 

5.078 

5.000 4.875 

4.547 

4.484 

-4.500 

-6.000 

-4.500 

-3.000 

-0.500 

4.875 

5.078 4.484 

5.000 

4.000 

-3.000 

-4.500 

-3.000 

-1.500 

-0.250 

4.484 

4.875 4.000 

5.078 

3.516 

-1.500 

-3.000 

-1.500 

0.000 

0.000 

4.000 

4.484 3.516 

4.875 

3.125 

0.000 

-1.500 

0.000 

1.500 

0.250 

3.516 

4.000 3.125 

4.484 

2.922 

1.500 

0.000 

1.500 

3.000 

0.500 

3.125 

3.516 2.922 

4.000 

3.000 

3.000 

1.500 

3.000 

4.500 

0.750 

2.922 

3.125 3.000 

3.516 

3.453 

4.500 

3.000 

4.500 

6.000 

1.000 

3.000 

2.922 3.453 

3.125 

4.375 

6.000 

4.500 

6.000 

7.500 

1.250 

3.453 

3.000 4.375 

2.922 

5.859 

7.500 

6.000 

7.500 

9.000 

1.500 

4.375 

3.453 5.859 

3.000 

8.000 

9.000 

7.500 

9.000 

10.500 

1.750 

5.859 

4.375 8.000 

3.453 

10.891 

10.500 

9.000 

10.500 

12.000 

2.000 

8.000 

5.859 10.891 

4.375 

14.625 

12.000 

10.500 

12.000 

13.500 

X 

11x1 

flx-11 flx+1) nxl-Theorv Flxl-Back 

Ffxl-Cent 

f (xl-Forw 


-2.000 

0.000 

-2.891 

2.141 

10.000 

11.563 

10.063 

8.563 


-1.750 

2.141 

0.000 

3.625 

7.188 

8.563 

7.250 

5.938 


-1.500 

3.625 

2.141 

4.547 

4.750 

5.938 

4.813 

3.688 


-1.250 

4.547 

3.625 

5.000 

2.688 

3.688 

2.750 

1.813 


-1.000 

5.000 

4.547 

5.078 

1.000 

1.813 

1.063 

0.313 


-0.750 

5.078 

5.000 

4.875 

-0.313 

0.313 

-0.250 

-0.813 


-0.500 

4.875 

5.078 

4.484 

-1.250 

-0.813 

-1.188 

-1.563 


-0.250 

4.484 

4.875 

4.000 

-1.813 

-1.563 

-1.750 

-1.938 


0.000 

4.000 

4.484 

3.516 

-2.000 

-1.938 

-1.938 

-1.938 


0.250 

3.516 

4.000 

3.125 

-1.813 

-1.938 

-1.750 

-1.563 


0.500 

3.125 

3.516 

2.922 

-1.250 

-1.563 

-1.188 

-0.813 


0.750 

2.922 

3.125 

3.000 

-0.313 

-0.813 

-0.250 

0.313 


1.000 

3.000 

2.922 

3.453 

1.000 

0.313 

1.063 

1.813 


1.250 

3.453 

3.000 

4.375 

2.688 

1.813 

2.750 

3.688 


1.500 

4.375 

3.453 

5.859 

4.750 

3.688 

4.813 

5.938 


1.750 

5.859 

4.375 

8.000 

7.188 

5.938 

7.250 

8.563 


2.000 

8.000 

5.859 

10.891 

10.000 

8.563 

10.063 

11.563 
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8.1 1 Substituting the parameter values yields 


8 3 1 — £ 

10 = 150 — — + 1.75 

1-8 1000 

This can be rearranged and expressed as a roots problem 

£ 3 

/(e) = 0.15(1-8)+ 1.75 -10 = 0 

1-8 

A plot of the function suggests a root at about 0.45. 



But suppose that we do not have a plot. How do we come up with a good initial guess. The void 
fraction (the fraction of the volume that is not solid; i.e. consists of voids) varies between 0 and 1 . As 
can be seen, a value of 1 (which is physically unrealistic) causes a division by zero. Therefore, two 
physically-based initial guesses can be chosen as 0 and 0.99. Note that the zero is not physically 
realistic either, but since it does not cause any mathematical difficulties, it is OK. Applying bisection 
yields a result of 8 = 0.461857 in 15 iterations with an absolute approximate relative error of 6.5x 1 0 
% 


The total pressure is equal to the partial pressures of the components: 

P = P b +P, 


According to Antoine’s equation 


P h =e 


T+C h 


Combining the equations yields 


A,- 


P,=e 


B, 

T+C t 


f{T) = e ih T+Cb +e 4 T+c > - P = 0 

The root of this equation can be evaluated to yield T= 350.5. 
8.13 There are a variety of ways to solve this system of 5 equations 




( 1 ) 


[H + ][HC0 3 ] 

[C0 2 ] 


y _[H + ][C0 2- ] 

( 2 ) 

2 [HCO - ] 

K w = [H][OH - ] 

( 3 ) 

c T =[C0 2 ] + [HC0 3 ] + [C0 2- ] 

( 4 ) 

Aik = [HC0 3 ] + 2[C0 2- ] + [OH - ] - [H + ] 

( 5 ) 


One way is to combine the equations to produce a single polynomial. Equations 1 and 2 can be solved 
for 


[H 2 C0 3 ] = 


[H ][HC0 3 ] 


[cor]= [H 


K i [HCO - ] 

These results can be substituted into Eq. 4, which can be solved for 
[H 2 CO* ] = F 0 c t [HCO; ] = F x c t 


[CO 2 ~] = F 2 c t 


where F 0 , F^, and F 2 are the fractions of the total inorganic carbon in carbon dioxide, bicarbonate and 
carbonate, respectively, where 

p [H + ] 2 F A,[H + ] F K,K 2 

0 [h + ] 2 +Aj[h + ] + 1 [H + ] 2 +k 1 [h + ] + k 1 k 2 2 [h + ] 2 + k 1 [u + ]+k 1 k 2 

Now these equations, along with the Eq. 3 can be substituted into Eq. 5 to give 

0 = FjC r + 2 F 2 c t + K w /[H ] - [H + ] - Aik 


Although it might not be apparent, this result is a fourth-order polynomial in [H + ]. 

[H + ] 4 + ( K x + Alk)[H + ] 3 +{K X K 2 + AlkA, - K w - K { c T )[H + ] 2 

+ (AlkA,A 2 - K x K w -2K { K 2 c t )[¥L + ]- K x K 2 K w = 0 

Substituting parameter values gives 

[H + ] 4 + 2.001 x 10 _3 [H + ] 3 -5.012 x10 _10 [H + ] 2 -1.055x10“ 19 [H + ]-2.512x10 -31 =0 


This equation can be solved for [H + ] = 


2.5 lxlO" 7 (pH = 6.6). This value can then be used to compute 


[OH - ] 


10 -14 

2.51 xlO -7 


= 3.98x10 



[H 2 C0 3 ] 
[HCO“] = 



(2.5 1 x 10” 7 ) 

I 2 

(2.5 1 x 1 0” 7 ) 

r +io _6 - 3 i 

(2.5 1 x 10” 7 ) 

+ 10“ 63 10' ia3 


3x10 = 0.33304 3x10 = 0.001 


10^ 3 ( 

2.5 1 x 10’ 7 ) 


(2.5 lx 10" 7 ) 

r + io “ 63 

(2.51xl0" 7 

) + 10 -6 ' 3 10“ 10 - 3 


3xlO -3 = 0.6665621 3 x 1 0 _J I = 0.002 


■v-3 


[CO 


2-n 


1 0~ 63 1 0 _ 103 


2.51x10"' + 10 -6,3 12.51x10'' I + 10“ OJ 10 


-7 , , n-6.3, n-10.3 


3xl0“ 3 = 0.000133(3xl0 -3 ) = 1.33xlO“ 4 M 


1.14 The integral can be evaluated as 


fC„u, K 1 , 1 

+ dc = 

Jc k r k k 

in '''max max a ma: 


inn 


( c ^ 

^ out 

r 

v J 


+ C out -C m 


Therefore, the problem amounts to finding the root of 


f(C 0 u ,)=- + 


V 1 


F k 



f c , ) 

K In 

^out 


c 

L 

y m ) 


+ C -C 

~ '-'out '-'in 


Excel solver can be used to find the root: 

-I =i =V/F+1/kmax'(K*LN(Cout/Cin)+Cout-Cin) 
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8.24 


%Region from x=8 to x=10 

xl= [ 8 : .1:10] ; 

yl=20* (xl- (xl-5) ) -15-57; 

figure (1) 

plot (xl , yl ) 

grid 

%Region from x=7 to x=8 

x2= [7 : .1:8]; 

y2=20* (x2- (x2-5) ) -57; 

figure (2) 

plot (x2 , y2 ) 

grid 

%Region from x=5 to x=7 

x3= [ 5 : .1:7] ; 

y3=20* (x3- (x3-5 ) ) -57; 

figure (3) 

plot (x3, y3) 

grid 

%Region from x=0 to x=5 

x4= [ 0 : .1:5] ; 

y4=20*x4-57 ; 

figure (4) 

plot (x4 , y4 ) 

grid 

%Region from x=0 to x=10 
figure (5) 

plot(xl,yl,x2,y2,x3,y3,x4,y4) 

grid 

title (' shear diagram') 

a= [20 -57] 
roots (a) 

a = 

20 -57 

ans = 

2.8500 
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8.25 


%Region from x=7 to x=8 
x2= [ 7 : .1:8] ; 

y2=-10* (x2. A 2-(x2-5) . A 2) +150+5 7 *x2; 
figure (2) 
plot (x2 , y2 ) 
grid 

%Region from x=5 to x=7 
x3= [ 5 : .1:7] ; 

y3=-10* (x3 . A 2- (x3-5) . A 2) +57*x3; 
figure (3) 
plot (x3, y3) 
grid 

%Region from x=0 to x=5 

x4= [ 0 : .1:5] ; 

y 4 — — 1 0 * (x4 . A 2 ) +57*x4 ; 

figure (4) 

plot (x4 , y4 ) 

grid 

%Region from x=0 to x=10 
figure (5) 

plot(xl,yl,x2,y2,x3,y3,x4,y4) 

grid 

title (' moment diagram') 

a= [-43 250] 
roots (a) 

a = 

-43 250 

ans = 

5.8140 



8.26 A Matlab script can be used to determine that the slope equals zero at x = 3.94 m. 

%Region from x=8 to x=10 

xl= [ 8 : .1:10] ; 

yl=( (-10/3) * (xl . A 3- (xl-5) . A 3) ) +7.5* (xl-8) . A 2+150* (xl-7) + (57/2) *xl . A 2- 

238.25; 

figure (1) 

plot (xl , yl ) 

grid 

%Region from x=7 to x=8 
x2= [7 : .1:8] ; 

y2=( (-10/3) * (x2 . A 3- (x2-5) . A 3) ) +150* (x2-7) + (57/2) *x2 . A 2-238 . 25; 
figure (2) 
plot (x2 , y2 ) 
grid 

%Region from x=5 to x=7 
x3= [5: .1:7] ; 

y3= ( (-10/3) * (x3. A 3- (x3-5) . A 3) ) + ( 57/2 ) *x3 . A 2-238 . 25 ; 
figure (3) 
plot (x3, y3) 
grid 

%Region from x=0 to x=5 
x4= [ 0 : .1:5] ; 

y4= ( (-10/3) * (x4 . A 3) ) + (57/2) *x4. A 2-238.25; 
figure (4) 
plot (x4 , y4 ) 
grid 

%Region from x=0 to x=10 
figure (5) 

plot(xl,yl,x2,y2,x3,y3,x4,y4) 

grid 

title ('slope diagram') 
a= [-10/3 57/2 0 -238.25] 
roots (a) 

a = 

-3.3333 28.5000 0 -238.2500 

ans = 

7 .1531 
3.9357 
-2.5388 


slope diagram 



8.27 


%Region from x=8 to x=10 
xl= [ 8 : .1:10] ; 

yl=(-5/6)*(xl. A 4-(xl-5) . A 4 ) + ( 15/ 6 ) * (xl-8 ) . A 3+75* (xl-7 ) . A 2+ (57/6) *xl . A 3- 

238 . 25*xl; 

figure (1) 

plot (xl , yl ) 

grid 

%Region from x=7 to x=8 
x2= [7 : .1:8]; 

y2= (-5/6) * (x2 . A 4- (x2-5 ) , A 4)+75*(x2-7) . A 2+(57/6) *x2 . A 3-238 . 25*x2 ; 
figure (2) 
plot (x2 , y2 ) 
grid 

%Region from x=5 to x=7 
x3= [5: .1:7] ; 

y3= (-5/6) * (x3. A 4- (x3-5) . A 4)+ (57/6) *x3 . A 3-238 . 25*x3; 
figure (3) 
plot (x3, y3) 
grid 

%Region from x=0 to x=5 
x4= [ 0 : .1:5] ; 

y4= (-5/6) *(x4. A 4) + (57/6) *x4 . A 3-238 . 25*x4 ; 
figure (4) 
plot (x4 , y4 ) 
grid 

%Region from x=0 to x=10 
figure (5) 

plot(xl,yl,x2,y2,x3,y3,x4,y4) 

grid 

title (' displacement curve') 
a = 

-3.3333 28.5000 0 -238.2500 

ans = 

7 . 1531 
3.9357 
-2.5388 

Therefore, other than the end supports, there are no points of zero displacement along the beam. 
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8.39 Excel Solver solution: 




A 

B 

c 

D E F i G 

1 

Prob. 8.39 




2 





3 

In: 




4 

TA 

400 




CpA 

FlowA 

9.909 

2 


=3.381 +0.01804*TA-0.0000043*TA A 2 

6 


7 





8 

TB 

600 



9 

CpB 

71.3112 

< 

=8.59240.01 29*TB-0 . 00004078*TB n 2 

in 

FlowB 

1 



11 

12 

Heatin 

50713.92 

< 

= F 1 o wA*C p A*T A4-F 1 o wB*C p B*TB 

13 





14 

T 

553.5959 



15 

CpAout 

12.05006 

< 

=3.381 40.01 804*T-0.0000043*T A 2 

16 

CpBout 

67.50809 

< 

=8.59240.01 29*T-0.00004078*T A 2 

17 

18 

Heatout: 

50713.92 

< 

= F 1 owA*C p Ao ut*T 4-F 1 owB*C p B o ut*T 

19 





20 

Net 

4.57E-07I 

< 

=Heatin-Heatout 



8.40 The problem reduces to finding the value of n that drives the second part of the equation to 
1 . In other words, finding the root of 

/(/;) = — ( »-D / »_i)_ i = 0 

n - 1 

Inspection of the equation indicates that singularities occur at x = 0 and 1. A plot indicates that 
otherwise, the function is smooth. 



A tool such as the Excel Solver can be used to locate the root at n = 0.8518. 
8.41 The sequence of calculation need to compute the pressure drop in each pipe is 

A=n(D/2) 2 



The six balance equations can then be solved for the 6 unknowns. 

The root location can be solved with a technique like the modified false position method. A bracketing 
method is advisable since initial guesses that bound the normal range of friction factors can be readily 
determined. The following VBA function procedure is designed to do this 

Option Explicit 
Function FalsePos (Re) 

Dim iter As Integer, imax As Integer 
Dim il As Integer, iu As Integer 

Dim xrold As Single, fl As Single, fu As Single, fr As Single 

Dim xl As Single, xu As Single, es As Single 

Dim xr As Single, ea As Single 


xl = 0.00001 
xu = 1 




es = 0.01 
imax = 40 
iter = 0 
fl = f ( xl , Re) 
fu = f (xu, Re) 

Do 

xrold = xr 

xr = xu - fu * (xl - xu) / (fl - fu) 
fr = f (xr. Re) 
iter = iter + 1 
If xr <> 0 Then 

ea = Abs ( (xr - xrold) / xr) * 100 
End If 

If fl * fr < 0 Then 
xu = xr 
fu = f (xu. Re) 
iu = 0 
il = il + 1 

If il >= 2 Then fl = fl / 2 
Elself fl * fr > 0 Then 
xl = xr 
fl = f ( xl , Re) 
il = 0 
iu = iu + 1 

If iu >= 2 Then fu = fu / 2 
Else 

ea = 0# 

End If 

If ea < es Or iter >= imax Then Exit Do 
Loop 

FalsePos = xr 
End Function 

Function f (x. Re) 

f = 4 * Log (Re * Sqr(x)) / Log (10) - 0.4 - 1 / Sqr(x) 
End Function 


The following Excel spreadsheet can be set up to solve the problem. Note that the function call, 
=falsepos (F8 ) , is entered into cell G8 and then copied down to G9:G14. This invokes the 
function procedure so that the friction factor is determined at each iteration. 


H24 = =SUM(H17:H22) 



A 

B 

C 

D 

E 

F 

G 

H 

1 

J K 

L 

M 

N 

0 

1 

Prob. 8.41 














2 















3 

Flowl 

1 













4 

vise 

0.0001 













5 

dens 

1 













6 















7 

Pipe 

Diameter 

Area 

Flow 

Velocity 

Re 

f 

DeltaP 







8 

1 

1 

0.7854 

1 

1 .2732 

12732 

0.00725 

0.00588020 







9 

2 

1 

0.7854 

0.5 

0.6366 

6366 

0.00874 

0.00177053 







10 

11 

3 

4 

1 

1 

U./854 

0.7854 

U.5 

0.5 

0.6366 

0.6366 

6366 

6366 

0.00874 

0.00874 

U.UU1 /7U53 
0.00177053 


_U*I 

12 

5 

1 

0.7854 

0.5 

0.6366 

6366 

0.00874 

0.00177053 


Set T arqet Cell : 1 ^ J 



r 

Solve | 

13 

6 

1 

0.7854 

0.5 

0.6366 

6366 

0.00874 

0.00177053 


Equal To: 

C Max C Min 

Value of 

1° 




15 










By Changing Cells: 



16 

Res 







Squared res 


|$D$9:$D$14 

Guess 



17 

0.003541 

> 

=2*H10+H1 1-H9 




1 .2539E-05 





18 

0.003541 

> 

=2*H12+H13-H1 1 




1 .2539E-05 



options | 

19 

0.003541 

> 

=3*H14-H13 




1 .2539E-05 


$D$9:$D$14 <= $D$8 
$D$9:$D$14 >= 0 


rJ Add I 



20 

0 

> 

=D9+D10-D8 




O.OOOOE-HDO 



. 1 



21 

0.5 

> 

=D1 1 +D12-D10 




2.5000E-01 








22 

0.5 

> 

=D13+D14-D12 




2.5000E-01 





Delete | 


23 

24 







SSR 

''5.0004E-0i 




Help | 


The resulting final solution is 



A 

B 

C 

D 

E 

F 

G 

H [ 

1 

Prob. 8.41 








2 









3 

FI owl 

1 







4 

vise 

0.0001 







5 

dens 

1 







6 









7 

Pipe 

Diameter 

Area 

Flow 

Velocity 

Re 

f 

DeltaP 

8 

1 

i 

0.7854 

i 

1.2732 

12732 

0.00725 

0.00588020 

9 

2 

i 

0.7854 

0.656439 

0.8358 

8358 

0.0081 1 

0.00283172 

10 

3 

i 

0.7854 

0.343545 

0.4374 

4374 

0.00973 

0.00093051 

11 

4 

i 

0.7854 

0.16715 

0.2128 

2128 

0.01213 

0.00027470 

12 

5 

i 

0.7854 

0.176369 

0.2246 

2246 

0.01192 

0.00030062 

13 

6 

i 

0.7854 

0.095502 

0.1216 

1216 

0.01462 

0.00010810 

14 

7 

1 

0.7854 

0.080861 

0.1030 

1030 

0.01550 

0.00008216 

15 









16 

Res 







Squared res 

17 

-0.0007 

> 

=2*H10+H1 1-H9 




4.8441 E-07 

18 

0.000435 

> 

=2*H12+H13-H11 




1 .8893 E-07 

19 

0.000138 

> 

=3*H14-H13 




1.9152E-08 

20 

-1.7E-05 

> 

=D9+D1 0-D8 




2 7258E-10 

21 

-2.6E-05 

> 

=D1 1 +D12-D10 




6.6336E-10 

22 

-5.9E-06 

> 

=D13+D14-D12 




3.4572E-1 1 

23 









24 







SSR 

6.9346E-07I 


1.42 The following application of Excel Solver can be set up: 


B18 


= | -SUM(B14:B16) 



A 

B 

C 

1 

Prob0842 



2 




3 

70 

500 


4 

T3 

25 


5 




6 

T1 

200 


7 

T2 

100 


8 




9 

qi 

306.9862 


10 

q2 

400 


11 

q3 

411.1734 


12 




13 




14 

(q1-q2)«2 

8651.559 


15 

(q1-q3)«2 

10854.97 


16 

(q2*q3) A 2 

124.8454 


17 




18 

Sum 

19631.37 





Solver Parameters 


Set Target Cell: W 

Equal To: C Max (* Min C Value of: fo"~ 

By Changing Cells: 

|$B$6:$B$7 if 

Subject to the Constraints: 


Add 

Change | 
, j Delete | 


_UiU 


Solve 


Close 


Options | 


Help 


The solution is: 



8.43 The results are 




8.44 

% Shuttle Liftoff Engine Angle 

% Newton-Raphson Method of iteratively finding a single root 
format long 

% Constants 

LGB = 4.0; LGS = 24.0; LTS = 38.0; 

WS = 0.230E6; WB = 1.663E6; 

TB = 5.3E6; TS = 1.125E6; 
es = 0.5E-7; nmax = 200; 

% Initial estimate in radians 

x = 0.25 

%Calculation loop 
for i=l:nmax 

fx = LGB*WB-LGB*TB-LGS*WS+LGS*TS*cos (x) -LTS*TS*sin (x) ; 

dfx = -LGS*TS*sin (x) -LTS*TS*cos (x) ; 

xn=x-fx/dfx; 

%convergence check 
ea=abs ( (xn-x) /xn) ; 
if (ea<=es) 

fprintf ( 1 convergence : Root = %f radians \n',xn) 
theta = (180/pi) *x; 

fprintf (' Engine Angle = %f degrees \n', theta) 
break 

end 

x=xn; 

x 

end 


% Shuttle Liftoff Engine Angle 

% Newton-Raphson Method of iteratively finding a single root 
% Plot of Resultant Moment vs Engine Anale 
format long 

% Constants 

LGB = 4.0; LGS = 24.0; LTS = 38.0; 

WS = 0.195E6; WB = 1.663E6; 

TB = 5.3E6; TS = 1.125E6; 

x=-5 : 0.1:5; 

fx = LGB*WB-LGB*TB-LGS*WS+LGS*TS*cos (x) -LTS*TS*sin (x) ; 

plot (x, fx) 
grid 

axis ([-6 6 -8e7 4e7 ] ) 

title ('Space Shuttle Resultant Moment vs Engine Angle 1 ) 
xlabel (' Engine angle ~ radians') 
ylabel (' Resultant Moment ~ lb-ft') 


x = 

0.25000000000000 

x = 

0.15678173034564 

x = 

0.15518504730788 


x 


0.15518449747125 


convergence: Root = 0.155184 radians 
Engine Angle = 8.891417 degrees 



-6 -4 -2 0 2 4 6 

Engine angle ~ radians 


8.45 This problem was solved using the roots command in Matlab. 

c = 

1 -33 -704 -1859 


roots (c) 

ans = 

48.3543 

- 12.2041 

- 3.1502 

Therefore, 

Oj = 48.4 Mpa 0 2 = -3.15 MPa 0 3 = -12.20 MPa 

T t 

1 100 20 

2 88.31493 30.1157 

3 80.9082 36.53126 


CHAPTER 3 


3.1 Here is a VBA implementation of the algorithm: 

Option Explicit 

Sub GetEps ( ) 

Dim epsilon As Single 
epsilon = 1 
Do 

If epsilon + 1 <= 1 Then Exit Do 
epsilon = epsilon / 2 
Loop 

epsilon = 2 * epsilon 
MsgBox epsilon 
End Sub 

It yields a result of 1.19209xl0“ 7 on my desktop PC. 

3.2 Here is a VBA implementation of the algorithm: 

Option Explicit 
Sub GetMin() 

Dim x As Single, xmin As Single 
x — 1 
Do 

If x <= 0 Then Exit Do 
xmin = x 
x — x / 2 
Loop 

MsgBox xmin 
End Sub 

It yields a result of 1.4013xl(T 4 " on my desktop PC. 

3.3 The maximum negative value of the exponent for a computer that uses e bits to store the 
exponent is 


Because of normalization, the minimum mantissa is 1/b = 2" 1 = 0.5. Therefore, the minimum 
number is 


y . 

• /v mm 


2_l 2 _(2- 1 -i) =2 -2- 1 


For example, for an 8-bit exponent 


i-2 


8-1 


,-128 


2.939xl0“ 39 


This result contradicts the value from Prob. 3.2 (1.4013x10 45 ). This amounts to an additional 
21 divisions (i.e., 21 orders of magnitude lower in base 2). I do not know the reason for the 
discrepancy. However, the problem illustrates the value of determining such quantities via a 
program rather than relying on theoretical values. 



3.4 VBA Program to compute in ascending order 

Option Explicit 
Sub Series ( ) 

Dim i As Integer, n As Integer 
Dim sum As Single, pi As Single 

pi = 4 * Atn ( 1 ) 
sum = 0 
n = 10000 
For i = 1 To n 

sum = sum + 1 / i A 2 
Next i 

MsgBox sum 

'Display true percent relatve error 
MsgBox Abs (sum - pi A 2 / 6) / (pi A 2 / 6) 

End Sub 

This yields a result of 1.644725 with a true relative error of 6.086xl0"\ 

VBA Program to compute in descending order: 

Option Explicit 
Sub Series ( ) 

Dim i As Integer, n As Integer 
Dim sum As Single, pi As Single 

pi = 4 * Atn ( 1 ) 
sum = 0 
n = 10000 

For i = n To 1 Step -1 
sum = sum + 1 / i A 2 
Next i 

MsgBox sum 

'Display true percent relatve error 
MsgBox Abs (sum - pi A 2 / 6) / (pi A 2 / 6) 

End Sub 

This yields a result of 1.644725 with a true relative error of 1.270xl0" 4 

The latter version yields a superior result because summing in descending order mitigates the 
roundoff error that occurs when adding a large and small number. 

3.5 Remember that the machine epsilon is related to the number of significant digits by Eq. 3.11 

£, = b l ~ t 


which can be solved for base 10 and for a machine epsilon of 1.19209x10 7 for 



t = l-log 10 (£) = l-log 10 (1.19209xl0- 7 ) = 7.92 


To be conservative, assume that 7 significant figures is good enough. Recall that Eq. 3.7 can 
then be used to estimate a stopping criterion, 


z s =(0.5x1 0 2 “")% 

Thus, for 7 significant digits, the result would be 

e s = (0.5x1 0 2_7 )% = 5 x10 _6 % 


The total calculation can be expressed in one formula as 

£ 5 = (0.5x1 0 2-Int(1-logl ° (i = )} )% 

It should be noted that iterating to the machine precision is often overkill. Consequently, 
many applications use the old engineering rule of thumb that you should iterate to 3 
significant digits or better. 

As an application, I used Excel to evaluate the second series from Prob. 3.6. The results are: 



A 

B 

c 

D 1 E i ~ 

g— T 

H 

1 

X 

8.3 




2 

n 

n! 

x A n/n! 

Series 1/Series True Value 

et (%) ea(%) 

3 

0 

1 

1 

1.000000E+00 1.000000E+00 2.485168E-04 

4.02E+05 

4 

1 

1 

8.3 

9.30000QE+00 1.075269E-01 2.485168E-04 

4.32E+04 

9.98E+C1 

5 

2 

2 

34.445 

4 374500E+01 2.285976E-02 2.4851 68E-04 

9.10E+03 

9.89E+01 

6 

3 

6 

95.29783 

1.390428E+02 7.192028E-03 2.485168E-04 

2.79E+03 

9.65E+C1 

7 

4 

24 

197.743 

3.367858E+02 2.969246E-03 2.485168E-04 

1.09E+03 

9.16E+C1 

B 

5 

120 

328.2534 

6 650392E+02 1. 503671 E-03 2.485168E-04 

5.05E+02 

8.35E+01 

9 

6 

720 

454.0839 

1.119123E+03 8.935568E-04 2.485168E-04 

2.60E+02 

7.22E+01 

10 

7 

5040 

538.4137 

1.657537E+03 6.033049E-04 2.485168E-04 

1 .43E+02 

5.88E+01 

11 

8 

40320 

558.6042 

2.216141 E+03 4.512348E-04 2.485168E-04 

8.16E+01 

4.49E+01 

12 

9 

362880 

515.1572 

2.731 298E+03 3.661263E-04 2.485168E-04 

4.73E+01 

3.21 E+01 

13 

10 

3628800 

427.5805 

3.158879E+03 3.165680E-04 2.485168E-04 

2.74E+01 

2.15E+01 

14 

11 

39916800 

322.6289 

3.481 508E+03 2.87231 9E-04 2.4851 68E-04 

1.56E+01 

1.35E+01 

15 

12 

4.79E+08 

223.1517 

3.704659E+03 2.699304E-04 2.485168E-04 

8.62E+00 

7.93E+00 

16 

13 

6.23E+09 

142.4738 

3.847133E+03 2.599338E-04 2.485168E-04 

4.59E+00 

4.39E+C0 

17 

14 

8.72E+10 

84.46659 

3.931600E+03 2.543494E-04 2.485168E-04 

2.35E+00 

2.29E+C0 

18 

15 

1.31E+12 

46.73818 

3.978338E+03 2.51 361 3E-04 2.4851 68E-04 

1.14E+00 

1.13E+00 

19 

16 

2.09E+13 

24.24543 

4.002583E+03 2.498386E-04 2.485168E-04 

5.32E-01 

5.29E-01 

20 

17 

3.56E+14 

1 1 .83747 

4 01 4421 E+03 2.491019E-04 2.485168E-04 

2.35E-01 

2.35E-01 

21 

18 

6.4E+15 

5.458391 

4.019879E+03 2.487637E-04 2.485168E-04 

9.93E-02 

9.92E-02 

22 

19 

1.22E+17 

2.384455 

4. 022264 E+03 2.486162E-04 2.485168E-04 

4.00E-02 

4.00E-02 

23 

20 

2.43E+18 

0.989549 

4 023253E+03 2.485551 E-04 2.485168E-04 

1.54E02 

1 54E-02 

24 

21 

5.11E+19 

0.391107 

4 023644 E+03 2.485309E-04 2.485168E-04 

5.67E03 

5. 67 E-03 

25 

22 

1 12E+21 

0.147554 

4.023792E+03 2.48521 8E04 2.4851 68E-D4 

2.00E03 

2. 00 E-03 

26 

23 

2.59E+22 

0.053248 

4.023845E+03 2.4851 85E04 2.4851 68E-04 

6.79E04 

6. 79 E-04 

27 

24 

6.2E+23 

0.018415 

4 023863E+03 2.485174E04 2.485168E-04 

2.22E04 

2. 22 E-04 

28 

25 

1 .55E+25 

0.006114 

4 023870E+03 2.485170E-04 2.485168E-04 

6.96E-05 

6.96E-05 

29 

26 

4 03E+26 

0.001952 

4 023872E+03 2.485169E-04 2.485168E-04 

2.1 IE-05 

2 1 1E-05 

30 

27 

1.09E+28 

0.0006 

4 .023872 E+03 2.485168ED4 2.4851 68 E 04 

6.16ED6 

6.16E-06 

31 

28 

3.05E+29 

0.000178 

4 023872E+03 2.485168E-04 2.485168E-04 

1.74E-06 

1 .74E-06 

32 

29 

8.84E+30 

5.09E-05 

4 023872E+03 2.485168E-04 2.485168E-04 

4.76E-07 

4.76E-07 

33 

30 

2.65E+32 

1.41E-05 

4.023872E+03 2.485168E-04 2.485168E-04 

1.26E-07 

1 26E-07 


Notice how after summing 27 terms, the result is correct to 7 significant figures. At this 
point, both the true and the approximate percent relative errors are at 6.16xl0“ h %. At this 


point, the process would repeat one more time so that the error estimates would fall below 
the precalculated stopping criterion of 5x 1 0“ 6 %. 


3.6 For the first series, after 25 terms are summed, the result is 



A 

. b 

c 

D 

E 

F 

G 

H 

1 

X 

8.3 







2 

n 

n! 

x A n/n! 

Sign 

Series 

True Value 

et (%) 

ea(%) 

3 

0 

1 

1 

1 

1 . 000000 E +00 

2.4851 68E-04 

402287.2 


4 

1 

1 

8.3 

-1 

-7. 300000 E +00 

2.4851 68E-04 

2937527 

100.0034 

5 

2 

2 

34.445 

1 

2.714500E+01 

2.4851 68E-04 

10922702 

99.99908 

6 

3 

6 

95.29783 

-1 

-6.815283E+01 

2.4851 68E-04 

27423930 

100.0004 

7 

4 

24 

197.743 

1 

1 .295902E+02 

2.4851 68E-04 

52145331 

99.99981 

8 

5 

120 

328.2534 

-1 

-1 .986632 E+02 

2.4851 68E-04 

79939643 

100.0001 

9 

6 

720 

454.0839 

1 

2. 554206 E +02 

2.4851 68E-04 

1.03E+08 

99.9999 

10 

7 

5040 

538.4137 

-1 

-2.829931 E+02 

2.4851 68E-04 

1.14E+08 

100.0001 

11 

8 

40320 

558.6042 

1 

2.7561 1 1 E+02 

2.4851 68E-04 

1.11E+08 

99.99991 

12 

9 

362880 

515.1572 

-1 

-2.395461 E+02 

2.4851 68E-04 

96390385 

100.0001 

13 

10 

3628800 

427.5805 

1 

1 .880344 E+02 

2.4851 68E-04 

75662552 

99.99987 

14 

11 

39916800 

322.6289 

-1 

-1 .345945 E+02 

2.4851 68E-04 

54159210 

100.0002 

15 

12 

4.79E+08 

223.1517 

1 

8.85571 7E-HD1 

2.4851 68E-04 

35634175 

99.99972 

IB 

13 

6.23E+09 

142.4738 

-1 

-5.391 659E+01 

2.4851 68E-04 

21695448 

100.0005 

17 

14 

8.72E+10 

84.46659 

1 

3. 055000 E +01 

2.4851 68E-04 

12292829 

99.99919 

18 

15 

1.31E+12 

46.73818 

-1 

-1.618818E+01 

2.4851 68E-04 

6514018 

100.0015 

19 

16 

2.09E+13 

24.24543 

1 

8.057248E+00 

2.4851 68E-04 

3242034 

99.99692 

20 

17 

3.56E+14 

1 1 .83747 

-1 

-3. 780226 E +00 

2.4851 68E-04 

1521215 

100.0066 

21 

18 

6.4E+15 

5.458391 

1 

1.678165E+00 

2.4851 68E-04 

675172.1 

99.98519 

22 

19 

1.22E+17 

2.384455 

-1 

-7. 062902 E-01 

2.4851 68E-04 

284302.2 

100.0352 

23 

20 

2.43E+18 

0.989549 

1 

2. 832587 E-01 

2.4851 68E-04 

113879.7 

99.91227 

24 

21 

5.11E+19 

0.391107 

-1 

-1 .078487 E-01 

2.4851 68E-04 

43496.95 

100.2304 

25 

22 

1.12E+21 

0.147554 

1 

3. 970542 E-02 

2.4851 68E-04 

15876.96 

99.3741 

26 

23 

2.59E+22 

0.053248 

-1 

-1 .354238 E-02 

2.4851 68E-04 

5549.281 

101.8351 

27 

24 

6.2E+23 

0.018415 

1 

4. 872486 E-03 

2.4851 68E-04 

1860.626 

94.89959 

28 

25 

1 .55E+25 

0.006114 

-1 

-1.241249E-03 

2.4851 68E-04 

599.4628 

120.0215 


The results are oscillating. If carried out further to n = 39, the series will eventually converge 
to within 7 significant digits. 


In contrast the second series converges faster. It attains 7 significant digits at n = 28. 



A 

B C D 

E 

F 

G 

H 

1 

X 

8.3 





2 

n 

n! x A n/n! Series 

1 /Series 

True Value 

et (%) 

ea(%) 

3 

0 

1 1 1 . 000000 E +00 

1 . 000000 E +00 

2.4851 68E-04 

4.02E+O5 


4 

1 

1 8.3 9. 300000 E +00 

1 .075269 E-01 

2.4851 68E-04 

4.32E+04 

9.98E+01 

5 

2 

2 34.445 4.374500E+01 

2.285976E-02 

2.4851 68E-04 

9.10E+03 

9.89E+01 

6 

3 

6 95.29783 1.390428E+02 

7. 192028 E-03 

2.4851 68E-04 

2.79E+03 

9.65E+01 

7 

4 

24 197.743 3.367858E+02 

2. 969246 E-03 

2.4851 68E-04 

1 .09E+O3 

9.16E+01 

8 

5 

120 328.2534 6.650392E+O2 

1.503671 E-03 

2.4851 68E-04 

5.05E+02 

8.35E+01 

9 

6 

720 454.0839 1.119123E+03 

8. 935568 E-04 

2.4851 68E-04 

2.60E+02 

7.22E+01 

10 

7 

5040 538.4137 1.657537E+03 

6. 033049 E-04 

2.4851 68E-04 

1.43E+02 

5.88E+01 

11 

8 

40320 558.6042 2.216141 E+03 

4.51 2348 E-04 

2.4851 68E-04 

8.16E+01 

4.49E-HD1 

12 

9 

362880 515.1572 2.731 298E+03 

3.661 263E-04 

2.4851 68E-04 

4.73E+01 

3.21 E+01 

13 

10 

3628800 427.5805 3.158879E+03 

3.165680E-04 

2.4851 68E-04 

2.74E+01 

2.15E+01 

14 

11 

39916800 322.6289 3.481 508E+03 

2.87231 9E-04 

2.4851 68E-04 

1.56E+01 

1 .35E+01 

15 

12 

4.79E+08 223.1517 3.704659E+03 

2. 699304 E-04 

2.4851 68E-04 

8.62E+00 

7.93E+80 

16 

13 

6.23E+09 142.4738 3.847133E+03 

2. 599338 E-04 

2.4851 68E-04 

4.59E+O0 

4.39E+00 

17 

14 

8.72E+10 84.46659 3.931 600E+03 

2.543494E-04 

2.4851 68E-04 

2.35E+00 

2.29E+O0 

18 

15 

1.31E+12 46.73818 3.978338E+03 

2.51 361 3E-04 

2.4851 68E-04 

1.14E+00 

1.13E+O0 

19 

16 

2.09E+13 24.24543 4.002583E+O3 

2. 498386 E-04 

2.4851 68E-04 

5.32E-01 

5.29E-01 

20 

17 

3.56E+14 11.83747 4.014421 E+03 

2.491019E-04 

2.4851 68E-04 

2.35E-01 

2.35E-01 

21 

18 

6.4E+15 5.458391 4.019879E+03 

2. 487637 E-04 

2.4851 68E-04 

9. 93 E-02 

9. 92 E-02 

22 

19 

1.22E+17 2.384455 4.022264E+03 

2. 4861 62 E-04 

2.4851 68E-04 

4. 00 E-02 

4. 00 E-02 

23 

20 

2.43E+18 0.989549 4.023253E+O3 

2.485551 E-04 

2.4851 68E-04 

1 .54 E-02 

1 .54 E-02 

24 

21 

5.11E+19 0.391107 4.023644E+03 

2. 485309 E-04 

2.4851 68E-04 

5. 67 E-03 

5. 67 E-03 

25 

22 

1.12E+21 0.147554 4.023792E+O3 

2.48521 8E-04 

2.4851 68E-04 

2. 00 E-03 

2. 00 E-03 

26 

23 

2.59E+22 0.053248 4.023845E+O3 

2.4851 85E-04 

2.4851 68E-04 

6.79E-04 

6.79E-04 

27 

24 

6.2E+23 0.018415 4.023863E+O3 

2.4851 74E-04 

2.4851 68E-04 

2. 22 E-04 

2. 22 E-04 

28 

25 

1.55E+25 0.006114 4.023870E+O3 

2.4851 70E-04 

2.4851 68E-04 

6.96E-05 

6.96E-05 
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3.9 Solution: 


21x21x1 20 = 52920 words @ 64 bits/word = 8 bytes/word 

52920 words @ 8 bytes/word = 423360 bytes 

423360 bytes / 1024 bytes/kilobyte = 413.4 kilobytes = 0.41 M bytes 

3.10 Solution: 

% Given: Taylor Series Approximation for cos (x) = 1 - x A 2/2! + x A 4/4! - ... 
% Find: number of terms needed to represent cos (x) to 8 significant 
% figures at the point where: x=0 . 2 pi 

x=0 . 2*pi; 
es=0 . 5e-08 ; 

%approximation 
cos=l ; 

j=i; 

% j=terms counter 

fprintf('j= %2.0f cos (x)= %0.10f\n', j,cos) 

fact=l ; 

for i=2 : 2 : 100 

j=j+i; 

fact=fact*i* (i-1) ; 

cosn=cos+ ( (-1) A ( j+1) ) * ( (x) A i) /fact; 
ea=abs ( (cosn-cos) /cosn) ; 
if ea<es 



end 


fprintf ( 'j= %2.0f cos(x)= %0.10f 


ea 


%0 . le\n ' , j , cosn, ea ) 


cos=cosn; 


end 


j= 1 cos (x) — 1.0000000000 

j= 2 cos (x) — 0.8026079120 

j= 3 cos (x) — 0.8091018514 

j= 4 cos (x) — 0.8090163946 

j= 5 cos (x) — 0.8090169970 

j= 6 cos (x) — 0.8090169944 


ea = 2 . 5e-001 
ea = 8.0e-003 
ea = l.le-004 
ea = 7.4e-007 


ea = 3 . 3e-009 CONVERGENCE es = 5.0e-009» 
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4.18 f(x) = x-l-l/2*sin(x) 
f '(x) = l-l/2*cos(x) 
f "(x) = l/2*sin(x) 
f '"(x) = l/2*cos(x) 
f IV (x) = -l/2*sin(x) 


Using the Taylor Series Expansion (Equation 4.5 in the book), we obtain the following 1 st , 
2 nd , 3 rd , and 4 th Order Taylor Series functions shown below in the Matlab program-fl, f2, 
f4. Note the 2 nd and 3 rd Order Taylor Series functions are the same. 

From the plots below, we see that the answer is the 4 th Order Tavlor Series expansion . 


x=0 : 0.001 : 3.2; 
f=x-l-0 . 5* sin (x ) ; 
subplot (2,2,1) ; 

plot (x, f) ; grid; title (' f (x) =x-l-0 . 5* sin (x) ' ) ;hold on 
fl=x-l . 5; 

el=abs (f-fl) ; %Calculates the absolute value of the difference/error 

subplot (2,2,2) ; 

plot (x, el ); grid; title (' 1st Order Taylor Series Error'); 

f2=x-l .5+0.25. * ( (x-0.5*pi) . *2) ; 
e2=abs (f-f2) ; 
subplot (2,2,3) ; 

plot (x, e2 ); grid; title (' 2nd/3rd Order Taylor Series Error'); 

f4=x-l . 5+0.25 . * ( (x-0.5*pi) . A 2 ) - (1/48) * ( (x-0.5*pi) . *4) ; 
e4=abs ( f 4 — f ) ; 
subplot (2,2,4) ; 

plot (x, e4 ); grid; title (' 4th Order Taylor Series Error' );hold off 


f(x)=x-1 -0.5*sin(x) 


1st Order Taylor Series Error 






01234 01234 


4.19 EXCEL WORKSHEET AND PLOTS 


X 

fill 

fixAl 

fix+1) 

f fxl-Theorv 

f (xl-Back 

f (xl-Cent 

ffxl-Forw 

-2.000 

0.000 

-2.891 

2.141 

10.000 

11.563 

10.063 

8.563 

-1.750 

2.141 

0.000 

3.625 

7.188 

8.563 

7.250 

5.938 

-1.500 

3.625 

2.141 

4.547 

4.750 

5.938 

4.813 

3.688 

-1.250 

4.547 

3.625 

5.000 

2.688 

3.688 

2.750 

1.813 

- 1.000 

5.000 

4.547 

5.078 

1.000 

1.813 

1.063 

0.313 

-0.750 

5.078 

5.000 

4.875 

-0.313 

0.313 

-0.250 

-0.813 

-0.500 

4.875 

5.078 

4.484 

-1.250 

-0.813 

-1.188 

-1.563 

-0.250 

4.484 

4.875 

4.000 

-1.813 

-1.563 

-1.750 

-1.938 

0.000 

4.000 

4.484 

3.516 

-2.000 

-1.938 

-1.938 

-1.938 

0.250 

3.516 

4.000 

3.125 

-1.813 

-1.938 

-1.750 

-1.563 

0.500 

3.125 

3.516 

2.922 

-1.250 

-1.563 

-1.188 

-0.813 

0.750 

2.922 

3.125 

3.000 

-0.313 

-0.813 

-0.250 

0.313 

1.000 

3.000 

2.922 

3.453 

1.000 

0.313 

1.063 

1.813 

1.250 

3.453 

3.000 

4.375 

2.688 

1.813 

2.750 

3.688 

1.500 

4.375 

3.453 

5.859 

4.750 

3.688 

4.813 

5.938 

1.750 

5.859 

4.375 

8.000 

7.188 

5.938 

7.250 

8.563 

2.000 

8.000 

5.859 

10.891 

10.000 

8.563 

10.063 

11.563 


First Derivative Approximations Compared to Theoretical 
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x-values 


Theoretical 

Backward 

Centered 

— - Forward 


X 

m 

ffxd} 

f(x+l) 

ffcH 

f(x+2) 

rtxt 

Theory 

f'lxl- f'fxVCent 
Back 

rtxt 

Forw 

-2.000 

0.000 

-2.891 

2.141 

3.625 

3.625 

-12.000 

150.500 

-12.000 

-10.500 

-1.750 

2.141 

0.000 

3.625 

-2.891 

4.547 

-10.500 

-12.000 

-10.500 

-9.000 

-1.500 

3.625 

2.141 

4.547 

0.000 

5.000 

-9.000 

-10.500 

-9.000 

-7.500 

-1.250 

4.547 

3.625 

5.000 

2.141 

5.078 

-7.500 

-9.000 

-7.500 

-6.000 

- 1.000 

5.000 

4.547 

5.078 

3.625 

4.875 

-6.000 

-7.500 

-6.000 

-4.500 

-0.750 

5.078 

5.000 

4.875 

4.547 

4.484 

-4.500 

-6.000 

-4.500 

-3.000 

-0.500 

4.875 

5.078 

4.484 

5.000 

4.000 

-3.000 

-4.500 

-3.000 

-1.500 

-0.250 

4.484 

4.875 

4.000 

5.078 

3.516 

-1.500 

-3.000 

-1.500 

0.000 

0.000 

4.000 

4.484 

3.516 

4.875 

3.125 

0.000 

-1.500 

0.000 

1.500 

0.250 

3.516 

4.000 

3.125 

4.484 

2.922 

1.500 

0.000 

1.500 

3.000 

0.500 

3.125 

3.516 

2.922 

4.000 

3.000 

3.000 

1.500 

3.000 

4.500 

0.750 

2.922 

3.125 

3.000 

3.516 

3.453 

4.500 

3.000 

4.500 

6.000 

1.000 

3.000 

2.922 

3.453 

3.125 

4.375 

6.000 

4.500 

6.000 

7.500 

1.250 

3.453 

3.000 

4.375 

2.922 

5.859 

7.500 

6.000 

7.500 

9.000 

1.500 

4.375 

3.453 

5.859 

3.000 

8.000 

9.000 

7.500 

9.000 

10.500 

1.750 

5.859 

4.375 

8.000 

3.453 

10.891 

10.500 

9.000 

10.500 

12.000 

2.000 

8.000 

5.859 

10.891 

4.375 

14.625 

12.000 

10.500 

12.000 

13.500 


Approximations of the 2nd Derivative 



f ’(x)-Theory 
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f'(x)-Centered 
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5.13 ( a ) 


n = 


log(35/.05) 

log(2) 


= 9.45 or 10 iterations 


0 b ) 


iteration 

Xr 

1 

17.5 

2 

26.25 

3 

30.625 

4 

28.4375 

5 

27.34375 

6 

26.79688 

7 

26.52344 

8 

26.66016 

9 

26.72852 

10 

26.76270 


for o, = 8 mg/L, T= 26.7627 °C 
for Os = 10 mg/L, T= 15.41504 °C 
for o s = 14mg/L, T= 1.538086 °C 


5.14 

Here is a VBA program to implement the Bisection function (Fig. 5.10) in a user-friendly 
program: 

Option Explicit 
Sub TestBisectO 

Dim imax As Integer, iter As Integer 
Dim x As Single, xl As Single, xu As Single 
Dim es As Single, ea As Single, xr As Single 
Dim root As Single 

Sheets ("Sheetl") .Select 
Range ("b4") .Select 
xl = ActiveCell .Value 
ActiveCell .Offset (1, 0). Select 
xu = ActiveCell .Value 
ActiveCell .Offset (1, 0). Select 
es = ActiveCell .Value 
ActiveCell .Offset (1, 0). Select 
imax = ActiveCell .Value 
Range ("b4") .Select 

If f ( x 1 ) * f ( xu ) < 0 Then 

root = Bisect (xl, xu, es, imax, xr, iter, ea) 

MsgBox "The root is: " & root 
MsgBox "Iterations:" & iter 
MsgBox "Estimated error: " & ea 
MsgBox "f (xr) = " & f (xr) 

Else 

MsgBox "No sign change between initial guesses" 

End If 


End Sub 




Function Bisect (xl, xu, es, imax, xr, iter, ea) 

Dim xrold As Single, test As Single 
iter = 0 
Do 

xrold = xr 
xr = (xl + xu) / 2 
iter = iter + 1 
If xr <> 0 Then 

ea = Abs ( (xr - xrold) / xr) * 100 
End If 

test = f (xl) * f (xr) 

If test < 0 Then 
xu = xr 

Elself test > 0 Then 
xl = xr 
Else 
ea = 0 
End If 

If ea < es Or iter >= imax Then Exit Do 
Loop 

Bisect = xr 
End Function 

Function f (c) 

f = 9.8 * 68.1 / c * (1 - Exp ( - ( c / 68.1) * 10)) - 40 
End Function 


For Example 5.3, the Excel worksheet used for input looks like: 



A 

B 

C 

D 

E 

1 

Bisection Example 




2 






3 






4 

xl 

12 


Run 


5 

xu 

16 



6 

es 

0.01 




7 

imax 

25 




8 







The program yields a root of 14.78027 after 12 iterations. The approximate error at this point 
is 6.63x1 0" 3 %. These results are all displayed as message boxes. For example, the solution 
check is displayed as 



5.15 See solutions to Probs. 5.1 through 5.6 for results. 


5.16 Errata in Problem statement: Test the program by duplicating Example 5.5 . 



Here is a VBA Sub procedure to implement the modified false position method. It is set up to 
evaluate Example 5.5. 

Option Explicit 

Sub TestFP ( ) 

Dim imax As Integer, iter As Integer 

Dim f As Single, FalseP As Single, x As Single, xl As Single 
Dim xu As Single, es As Single, ea As Single, xr As Single 

xl = 0 
xu = 1.3 
es = 0.01 
imax = 20 

MsgBox "The root is: " & FalsePos(xl, xu, es, imax, xr, iter, ea) 

MsgBox "Iterations: " & iter 

MsgBox "Estimated error: " & ea 

End Sub 

Function FalsePos(xl, xu, es, imax, xr, iter, ea) 

Dim il As Integer, iu As Integer 

Dim xrold As Single, fl As Single, fu As Single, fr As Single 

iter = 0 
fl = f (xl ) 
fu = f ( xu ) 

Do 

xrold = xr 

xr = xu - fu * (xl - xu) / (fl - fu) 
fr = f (xr) 
iter = iter + 1 
If xr <> 0 Then 

ea = Abs ( (xr - xrold) / xr) * 100 
End I f 

If fl * fr < 0 Then 
xu = xr 
fu = f ( xu ) 
iu = 0 
il = il + 1 

If il >= 2 Then fl = fl / 2 
Elself fl * fr > 0 Then 
xl = xr 
fl = f (xl ) 
il = 0 
iu = iu + 1 

If iu >= 2 Then fu = fu / 2 
Else 

ea = 0# 

End I f 

If ea < es Or iter >= imax Then Exit Do 
Loop 

FalsePos = xr 
End Function 

Function f (x) 
f = x A 10 - 1 
End Function 


When the program is run for Example 5.5, it yields: 



root = 14.7802 
iterations = 5 
error = 3.9xl0“ 5 % 


5.17 Errata in Problem statement: Use the subprogram you developed in Prob. 5.16 to 
duplicate the computation from Example 5.6 . 

The results are plotted as 



Interpretation: At first, the method manifests slow convergence. However, as it approaches 
the root, it approaches quadratic convergence. Note also that after the first few iterations, the 
approximate error estimate has the nice property that e a > £,. 

5.18 Here is a VBA Sub procedure to implement the false position method with minimal 
function evaluations set up to evaluate Example 5.6. 

Option Explicit 
Sub TestFP ( ) 

Dim imax As Integer, iter As Integer, i As Integer 

Dim xl As Single, xu As Single, es As Single, ea As Single, xr As 
Single, fct As Single 

MsgBox "The root is: " & FPMinFctEval (xl , xu, es, imax, xr, iter, ea) 

MsgBox "Iterations: " & iter 

MsgBox "Estimated error: " & ea 

End Sub 

Function FPMinFctEval (xl , xu, es, imax, xr, iter, ea) 

Dim xrold, test, fl, fu, fr 

iter = 0 

xl = 0# 

xu = 1.3 

es = 0.01 

imax = 50 

fl = f ( xl ) 

fu = f ( xu ) 

xr = (xl + xu) / 2 

Do 

xrold = xr 

xr = xu - fu * (xl - xu) / (fl - fu) 
fr = f (xr) 




iter = iter + 1 
If (xr <> 0) Then 

ea = Abs ( (xr - xrold) / xr) * 100# 

End I f 

test = fl * fr 
If (test < 0) Then 
xu = xr 
fu = fr 

Elself (test > 0) Then 
xl = xr 
fl = fr 
Else 

ea = 0# 

End I f 

If ea < es Or iter >= imax Then Exit Do 
Loop 

FPMinFctEval = xr 
End Function 

Function f (x) 
f = x A 10 - 1 
End Function 

The program yields a root of 0.9996887 after 39 iterations. The approximate error at this 
point is 9.5x10' %. These results are all displayed as message boxes. For example, the 
solution check is displayed as 

The number of function evaluations for this version is 2n+2. This is much smaller than the 
number of function evaluations in the standard false position method (5n). 

5.19 Solve for the reactions: 

Ri=265 lbs. R 2 = 285 lbs. 

Write beam equations: 

M + (16.667x 2 ) — - 265x = 0 
3 

(1) M = 265 - 5.55x 3 

M + 1 00(x - 3)(^^) + 1 50(x - - (3)) - 265x = 0 

(2) M = -50x 2 + 415x-150 

M = 150(x — (3)) + 300(x-4.5)-265x 

(3) M = -185x + 1650 

M + 100(12 -x) = 0 

(4) M - lOOx-1200 


0<x<3 


3<x<6 


6<x<10 


10<x<12 


Combining Equations: 



Because the curve crosses the axis between 6 and 10, use (3). 


(3) M = —185.x + 1650 
Set x, = 6;x v = 10 

M(x l ) = 540 = x £ +Xu = 

M(x u ) = - 200 '' 2 ' 

M(x^) = 170 — > replaces x L 

M(x l ) = 170 ^ 8 + 10 

M(x u ) = - 200 “ 2 

M(x r ) = - 1 5 — » replaces x v 


M(x l ) = 170 _ 8 + 9 

M(x u ) = - 15 X,_ 2 

M(x r ) = 77 .5 — > replaces x L 

M(x l ) = 77.5 _ _ 8.5 + 9 

M(x u ) = -15 X,_ 2~ 

M(x s ) = 3 1 .25 — > replaces x, 


M(x L ) = 31.25 ^ _ 8.75 + 9 _ 

M(x v ) = -15 Xr_ 2 

M(x r ) = 8.125 — » replaces x L 


M(x L ) = 8.125 ^ _ 8.875 + 9 

M(x u ) = -15 Xr_ 2 

M(x r ) = -3.4375 — > replaces x v 


8.9375 


M(x L ) = 8.125 _ _ 8.875 + 8.9375 

M(x v ) = -3.4375 Xr_ 2 
M(x r ) = 2.34375 + replaces x L 


8.90625 


M(x L ) = 2.34375 _ _ 8.90625 + 8.9375 

M(x u ) = - 3.4375 Xr_ 2 

M(x r ) = -0.546875 — > replaces x v 


8.921875 



M(x l ) = 2.34375 _ 8.90625 + 8.921875 

M(x v ) = -0.546875 “ 2~ 

M(x R ) = 0.8984 Therefore, x = 8.91 feet 

5.20 M = -185* + 1650 

Set x L = 6;x v = 10 

M(x L ) = 540 
M(x v ) = -200 


_ M (x a )(x, - x L , ) 
M(x l )-M(x v ) 


- 200 ( 6 - 10 ) 

Xn =10 

540 -(-200) 

M(x r ) = -2x 10“ 7 =0 


8.9189 


8.9140625 


Only one iteration was necessary. 
Therefore, x = 8.9189 
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6.16 

Here is a VBA program to implement the Newton-Raphson algorithm and solve Example 

6.3. 

Option Explicit 
Sub NewtRaph() 

Dim imax As Integer, iter As Integer 

Dim xO As Single, es As Single, ea As Single 

xO = 0# 
es = 0.01 
imax = 20 

MsgBox "Root: " & NewtR(xO, es, imax, iter, ea) 

MsgBox "Iterations: " & iter 

MsgBox "Estimated error: " & ea 

End Sub 

Function df (x) 
df = -Exp(-x) - 1# 

End Function 

Function f (x) 
f = Exp ( -x) - x 

End Function 

Function NewtR(xO, es, imax, iter, ea) 

Dim xr As Single, xrold As Single 

xr = xO 
iter = 0 
Do 



xrold = xr 

xr = xr - f (xr) / df (xr) 
iter = iter + 1 
If (xr <> 0) Then 

ea = Abs ( (xr - xrold) / xr) * 100 
End I f 

If ea < es Or iter >= imax Then Exit Do 
Loop 

NewtR = xr 
End Function 

It’s application yields a root of 0.5671433 after 4 iterations. The approximate error at this 
point is 2.1x1 0“ 5 %. 

6.17 

Here is a VBA program to implement the secant algorithm and solve Example 6.6. 

Option Explicit 
Sub SecMainO 

Dim imax As Integer, iter As Integer 

Dim xO As Single, xl As Single, xr As Single 

Dim es As Single, ea As Single 

xO = 0 

xl = 1 

es = 0.01 

imax = 20 

MsgBox "Root: " & Secant (xO, xl, xr, es, imax, iter, ea) 

MsgBox "Iterations: " & iter 

MsgBox "Estimated error: " & ea 

End Sub 

Function f (x) 
f = Exp ( -x) - x 

End Function 

Function Secant (xO, xl, xr, es, imax, iter, ea) 
xr = xl 
iter = 0 
Do 

xr = xl - f(xl) * (xO - xl) / (f(x0) - f(xl)) 

iter = iter + 1 
If (xr <> 0) Then 

ea = Abs ( (xr - xl) / xr) * 100 
End I f 

If ea < es Or iter >= imax Then Exit Do 
xO = xl 
xl = xr 
Loop 

Secant = xr 
End Function 

It’s application yields a root of 0.5671433 after 4 iterations. The approximate error at this 
point is 4.77xlO J %. 


6.18 



Here is a VBA program to implement the modified secant algorithm and solve Example 6.8. 

Option Explicit 
Sub SecModO 

Dim imax As Integer, iter As Integer 

Dim x As Single, es As Single, ea As Single 

x = 1 

es = 0.01 

imax = 20 

MsgBox "Root: " & ModSecant (x, es, imax, iter, ea) 

MsgBox "Iterations: " & iter 

MsgBox "Estimated error: " & ea 

End Sub 

Function f (x) 
f = Exp (-x) - x 

End Function 

Function ModSecant (x, es, imax, iter, ea) 

Dim xr As Single, xrold As Single, fr As Single 

Const del As Single = 0.01 

xr = x 

iter = 0 

Do 

xrold = xr 
fr = f (xr) 

xr = xr - fr * del * xr / (f (xr + del * xr) - fr) 
iter = iter + 1 
If (xr <> 0) Then 

ea = Abs ( (xr - xrold) / xr) * 100 
End I f 

If ea < es Or iter >= imax Then Exit Do 
Loop 

ModSecant = xr 
End Function 

It’s application yields a root of 0.5671433 after 4 iterations. The approximate error at this 
point is 3.15xl0“ 5 %. 

.19 

Here is a VBA program to implement the 2 equation Newton-Raphson method and solve 
Example 6.10. 

Option Explicit 

Sub NewtRaphSyst ( ) 

Dim imax As Integer, iter As Integer 

Dim xO As Single, yO As Single 

Dim xr As Single, yr As Single 

Dim es As Single, ea As Single 

xO = 1.5 
yO = 3.5 

es = 0.01 
imax = 20 



Call NR2Eqs(xO, yO, xr, yr, es, imax, iter, ea) 

MsgBox "x, y = " & xr & ", " & yr 

MsgBox "Iterations: " & iter 

MsgBox "Estimated error: " & ea 

End Sub 

Sub NR2Eqs(xO, yO, xr, yr, es, imax, iter, ea) 

Dim J As Single, eay As Single 

iter = 0 
Do 

J = dudx(xO, yO) * dvdy(xO, yO) - dudy(xO, yO) * dvdx(xO, yO) 
xr = xO - (u(xO, yO) * dvdy(xO, yO) - v(xO, yO) * dudy(xO, yO) ) / J 
yr = yO - (v(xO, yO) * dudx(xO, yO) - u(xO, yO) * dvdx(xO, yO) ) / J 
iter = iter + 1 
If (xr <> 0) Then 

ea = Abs ( (xr - xO) / xr) * 100 
End I f 

If (xr <> 0) Then 

eay = Abs ( (yr - yO) / yr) * 100 
End I f 

If eay > ea Then ea = eay 
If ea < es Or iter >= imax Then Exit Do 
xO = xr 
yO = yr 
Loop 

End Sub 

Function u(x, y) 
u=x A 2 + x * y - 10 
End Function 

Function v(x, y) 
v = y + 3*x*y A 2-57 
End Function 

Function dudx(x, y) 
dudx =2 * x + y 
End Function 

Function dudy(x, y) 
dudy = x 
End Function 

Function dvdx(x, y) 
dvdx = 3 * y A 2 
End Function 

Function dvdy(x, y) 
dvdy =l+6*x*y 
End Function 

It’s application yields roots of x = 2 and v = 3 after 4 iterations. The approximate error at this 
point is 1.59xl(T 5 %. 

.20 

The program fromProb. 6.19 can be set up to solve Prob. 6.1 1, by changing the functions to 



Function u(x, y) 
u=y+x A 2-0.5 
End Function 

Function v(x, y) 
v = x A 2-5*x* 
End Function 

Function dudx(x, y) 
dudx = 2 * x - 1 
End Function 

Function dudy(x, y) 
dudy = 1 
End Function 

Function dvdx(x, y) 
dvdx = 2 * x A 2 - 
End Function 

Function dvdy(x, y) 
dvdy = -5 * x 
End Function 


- x 


y - y 


5 * y 


Using a stopping criterion of 0.01%, the program yields x = 1.233318 and y = 0.212245 after 
7 iterations with an approximate error of 2.2x10 . 


The program fromProb. 6.19 can be set up to solve Prob. 6.12, by changing the functions to 

Function u(x, y) 

u = (x-4) A 2 + ( y — 4 ) A 2-4 
End Function 

Function v(x, y) 
v=x A 2+y A 2-16 
End Function 

Function dudx(x, y) 
dudx = 2 * (x-4) 

End Function 

Function dudy(x, y) 
dudy = 2 * (y - 4) 

End Function 

Function dvdx(x, y) 
dvdx = 2 * x 
End Function 

Function dvdy(x, y) 
dvdy = 2 * y 
End Function 

Using a stopping criterion of 0.01% and initial guesses of 2 and 3.5, the program yields x = 
2.0888542 andy = 3.41 1438 after 3 iterations with an approximate error of 9.8x10" 



Using a stopping criterion of 0.01% and initial guesses of 3.5 and 2, the program yields x 
3.41 1438 andy = 2.0888542 after 3 iterations with an approximate error of 9. 8x10 

6.21 

x = -Ja 
x 2 = a 

f(x) = x 2 - a = 0 
/'(*) = 2x 

Substitute into Newton Raphson formula (Eq. 6.6), 

2 

x - a 

x- x 

2x 

Combining terms gives 

_ 2x(x) - x 2 + a _ x 2 + a/ x 

X — — 

2 2 


6.22 

SOLUTION: 


f[x) = tanh(x 2 -9) 

/'(x) =[sech 2 (x 2 — 9)](2x) 

*o=3.1 


x 


i + 1 


/(*) 

f'(x) 


iteration 

Xi+i 

1 

2.9753 

2 

3.2267 

3 

2.5774 

4 

7.9865 


The solution diverges from its real root of x = 3 . Due to the concavity of the slope, the next iteration 
will always diverge. The sketch should resemble figure 6.6(a). 


6.23 

SOLUTION: 



/(x) = 0.0074x 4 -0.284x 3 +3.355x 2 -12.183x + 5 
/'(x) = 0.0296x 3 - 0.852x 2 + 6.71x - 12. 183 


x i+ i = x,. 


/(*,■ ) 
/'(*,-) 


i 

X i+ i 

i 

9.0767 

2 

-4.01014 

3 

-3.2726 


The solution converged on another root. The partial solutions for each iteration intersected the x-axis 
along its tangent path beyond a different root, resulting in convergence elsewhere. 


.24 

SOLUTION: 


f(x)=± 16-(x+ 1) 2 +2 


X M = X i 


/'(x^Xx^-x.) 

/(x M )-/(x i ) 


1 st iteration 

x M = 0.5 =>/(x M ) = -1.708 
x, =3=>/(x,.) = 2 
, 2(0.5 -3) 

x M = 3 - - — — — = 1 .65 1 6 


(-1.708-2) 


2 nd iteration 


x, =1.6516 =>/(x,.) = -0.9948 

x,._i = 0.5 =>/(x M ) = -1.46 


-0.9948(0.5-1.6516) 

r w = 1.6516 : — : — — . — = 4.1142 


(-1.46- -0.9948) 


The solution diverges because the secant created by the two x-values yields a solution outside the 
functions domain. 
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7.6 Errata in Fig. 7.4; 6th line from the bottom of the algorithm: the > should be changed to > : 


IF ( | dx r | < eps*x r OR iter >= maxit) EXIT 

Here is a VBA program to implement the Muller algorithm and solve Example 7.2. 

Option Explicit 
Sub TestMullO 

Dim maxit As Integer, iter As Integer 

Dim h As Single, xr As Single, eps As Single 

h = 0.1 
xr = 5 
eps = 0.001 
maxit = 20 

Call Muller (xr, h, eps, maxit, iter) 

MsgBox "root = " & xr 
MsgBox "Iterations: " & iter 

End Sub 

Sub Muller (xr, h, eps, maxit, iter) 


Dim xO As Single, xl As Single, x2 As Single 

Dim hO As Single, hi As Single, dO As Single, dl As Single 

Dim a As Single, b As Single, c As Single 

Dim den As Single, rad As Single, dxr As Single 

x2 = xr 

xl = xr + h * xr 
xO = xr - h * xr 
Do 

iter = iter + 1 
hO = xl - xO 

hi - x2 - xl 

dO = (f (xl) - f (xO) ) / hO 
dl = (f (x2) - f (xl) ) / hi 

a = (dl - dO) / (hi + hO) 
b = a * hi + dl 
c = f (x2 ) 

rad = Sqr (b *b-4*a*c) 

If Abs (b + rad) > Abs (b - rad) Then 
den = b + rad 
Else 

den = b - rad 
End If 

dxr = -2 * c / den 
xr = x2 + dxr 

If Abs (dxr) < eps * xr Or iter >= maxit Then Exit Do 
xO = xl 
xl = x2 
x2 = xr 
Loop 
End Sub 

Function f (x) 
f = x / '3-13*x-12 
End Function 



7.7 The plot suggests a root at 1 



Using an initial guess of 1.5 with h = 0.1 and eps = 0.001 yields the correct result of 1 in 4 
iterations. 

7.8 Here is a VBA program to implement the Bairstow algorithm and solve Example 7.3. 


Option Explicit 
Sub PolyRootO 

Dim n As Integer, maxit As Integer, ier As Integer, i As Integer 
Dim a (10) As Single, re (10) As Single, im(10) As Single 
Dim r As Single, s As Single, es As Single 
n = 5 

a(0) = 1.25: a(l) = -3.875: a(2) = 2.125: a(3) = 2.75: a(4) = -3.5: a(5) = 1 
maxit = 20 
es = 0.01 
r = -1 
s = -1 

Call Bairstow (a () , n, es, r, s, maxit, re () , im(), ier) 

For i = 1 To n 

If im ( i ) >= 0 Then 

MsgBox re(i) & " + " & im(i) & "i" 

Else 

MsgBox re(i) & " - " & Abs(im(i)) & "i" 

End If 
Next i 

End Sub 

Sub Bairstow (a, nn, es, rr, ss, maxit, re, im, ier) 

Dim iter As Integer, n As Integer, i As Integer 

Dim r As Single, s As Single, eal As Single, ea2 As Single 

Dim det As Single, dr As Single, ds As Single 

Dim rl As Single, il As Single, r2 As Single, i2 As Single 

Dim b(10) As Single, c(10) As Single 

r = rr 
s = ss 
n = nn 
ier = 0 
eal = 1 
ea2 = 1 
Do 

If n < 3 Or iter >= maxit Then Exit Do 
iter = 0 
Do 

iter = iter + 1 
b (n) = a (n) 

b(n - 1) = a(n - 1) + r * b(n) 
c (n) = b (n) 

c(n - 1) = b(n - 1) + r * c(n) 

For i = n - 2 To 0 Step -1 




b(i) = a(i) + r * b(i + 1) + s * b(i + 2) 
c(i) = b(i) + r * c(i + 1) + s * c(i + 2) 

Next i 

det = c (2) * c (2) - c (3) * c (1) 

If det <> 0 Then 

dr = (-b(l) * c ( 2 ) + b ( 0 ) * c ( 3 ) ) / det 
ds = (-b(O) * c(2) + b ( 1 ) * c (1) ) / det 
r = r + dr 
s = s + ds 

If r <> 0 Then eal = Abs (dr / r) * 100 
If s <> 0 Then ea2 = Abs (ds / s) * 100 
Else 

r = r + 1 
s = s + 1 
iter = 0 
End If 

If eal <= es And ea2 <= es Or iter >= maxit Then Exit Do 
Loop 

Call Quadroot(r, s, rl, il, r2, 12) 
re (n) = rl 
im(n) = il 
re (n - 1) = r2 
im(n - 1) = i2 
n = n - 2 
For i = 0 To n 
a (i) = b (i + 2) 

Next i 
Loop 

If iter < maxit Then 
If n = 2 Then 

r = -a (1) / a (2) 
s = -a (0) / a (2) 

Call Quadroot(r, s, rl, il, r2, 12) 
re (n) = rl 
im(n) = il 
re (n - 1) = r2 
im(n - 1) = i2 
Else 

re (n) = -a (0) / a (1) 
im(n) = 0 
End If 
Else 

ier = 1 
End If 
End Sub 

Sub Quadroot(r, s, rl, il, r2, 12) 

Dim disc 

disc=r A 2+4*s 
If disc > 0 Then 

rl = (r t Sqr(disc)) / 2 

r2 = (r - Sqr(disc)) / 2 

11 = 0 

12 = 0 

Else 

rl = r / 2 
r2 = r 1 

11 = Sqr (Abs (disc) ) / 2 

12 = -il 
End If 
End Sub 


7.9 See solutions to Prob. 7.5 



7.10 The goal seek set up is 


B1 



A 

B 1 

1 

X 

ti 

2 

x A 3.3 

l1 

3 



4 



5 



6 



7 



8 



9 




=B1 A 3.3 



The result is 



71 


7.11 The goal seek set up is shown below. Notice that we have named the cells containing the 
parameter values with the labels in column A. 



The result is 63.649 kg as shown here: 



7.12 The Solver set up is shown below using initial guesses of x=y= 1. Notice that we have 

rearranged the two functions so that the correct values will drive them both to zero. We then 
drive the sum of their squared values to zero by vaiying x and y. This is done because a 
straight sum would be zero if/i(x,y) = -fi{x,y). 


CIO 


= =C7 +C8 



A 

B 

C 1 

z 

1 

Prob. 7.12 



1 

2 




1 

3 

X 

1 



4 

y 

1 



5 
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function 

function A 2 


7 

f1(x,y)=-x A 2+x+0.5-y 

1.5 

2.25 


B 

f2(x,y)=x A 2-y-5xy 

-5 

25 


9 





JOJ 


sum squares) 

f 27.25: 

1 

11 
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13 





14 





15 
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D E 


Solver Parameters 


G H 


1 — T 


Set T arget Cell : 

Equal To: C Max C Min <• Value of: fo"~ 

-By Changing Cells: 

|$B$3:$B$4 5J 

5ubject to the Constraints: 


Add 

Change | 
T [ Delete | 


1 iT 


Jjxj 


Options 


Help 


The result is 



ii 


7.13 A plot of the functions indicates two real roots at about (—1.5, 1.5) and (—1.5, 1.5). 

4 r 



-3 



The Solver set up is shown below using initial guesses of (-1.5, 1.5). Notice that we have 
rearranged the two functions so that the correct values will drive them both to zero. We then 
drive the sum of their squared values to zero by varying x and y. This is done because a 
straight sum would be zero if f(x,y) = -fi(x,y). 



The result is 



A 

B 

c 1 

1 

Prob. 7.12 



2 




3 

X 

-1.6004838 


4 

V 

1.561555286 


5 




6 


function 

function A 2 

7 

f1(x,y)=x A 2-y-1 

-6.89271E-06 

4.751E-11 

8 

f2(x,y)=x A 2+y A 2-5 

3.30504E-06 

1.092E-11 

9 




10 


sum squares 

5.843E-1 1 1 

11 





Solver found a solution. All constraints and optimality 
conditions are satisfied. 


(* [Keep Solver Solution 


Restore Original Values 


Cancel 


JJXJ 


Reports 

Answer 
Sensitivity 
Limits 


zi 


Save Scenario. . . 


Help 


For guesses of (1.5, 1.5) the result is (1.6004829, 1.561556). 



7. 14 First we will multiply out the polynomial so that it is in standard format 

/, (x) = (x + 2)(x - 6)(x - l)(x + 4)(x - 8) = x 5 - 9x 4 -20x 3 + 204x 2 + 208x- 384 

Note this can also be done directly in MATLAB by first setting up a vector holding the roots 
» v=[-2 61-48]; 
and then using the poly function 

» a=poly(v) 
a = 

1 -9 -20 204 208 -384 

Next, we can evaluate this polynomial at a specific value. For example, at x = 1 (one of the 
roots), it would evaluate to zero 

» polyval(a,l) 
ans = 

0 

At x = 0, it would evaluate to 
» polyval(a,0) 
ans = 

-384 

The derivatives can be computed by 

» polyder(a) 
ans = 

5 -36 -60 408 208 

Next, a polynomial with two of the original roots can be formed 

» v=[-2 6] ; 

» b=poly(v) 

b = 

1 -4 -12 

We can divide this polynomial into the original polynomial by 

» [d,e]=deconv(a,b) 

with the result being a quotient (a third-order polynomial, d) and a remainder (e) 
d = 

1 -5 -28 32 

e = 

0 0 0 0 0 0 

Because the polynomial is a perfect divisor, the remainder polynomial has zero coefficients. 



>> roots (d) 


with the expected result that the remaining roots of the original polynomial are found 

ans = 

8.0000 

- 4.0000 

1.0000 

We can now multiply d by b to come up with the original polynomial, 

>> conv(d,b) 
ans = 

1 -9 -20 204 208 -384 

Finally, we can determine all the roots of the original polynomial by 

>> r=roots (a) 


8 . 0000 
6.0000 
- 4 . 0000 
- 2 . 0000 

1 . 0000 


7.15 

p= [0.7 -4 6.2 -2]; 
roots (p) 

ans = 


3.2786 

2.0000 

0.4357 


p= [-3.704 16.3 -21.97 9.34]; 
roots (p) 

ans = 


2.2947 
1 . 1525 
0.9535 

p=[l -2 6 -2 5] ; 
roots (p) 


ans = 


1.0000 + 2 . OOOOi 

1.0000 - 2. OOOOi 
-0.0000 + 1. OOOOi 
-0.0000 - 1. OOOOi 


7.16 Flere is a program written in Compaq Visual Fortran 90, 

PROGRAM Root 


Use IMSL 


!This establishes the link to the IMSL libraries 



Implicit None ! forces declaration of all variables 

Integer: : nroot 
Parameter (nroot=l) 

Integer: :itmax=50 

Real : : errabs=0 . , errrel=l . E-5, eps=0 . , eta=0 . 

Real :: f, xO (nroot) ,x(nroot) 

External f 

Integer : :info (nroot) 

Print *, "Enter initial guess" 

Read *, xO 

Call ZReal (f, err ab s, err re l,eps, eta, nroot, itmax, xO , x, inf o) 

Print *, "root = ", x 

Print *, "iterations = ", info 

End 

Function f (x) 

Implicit None 
Real : : f , x 

f = x**3-x**2+2*x-2 
End 

The output for Prob. 7.4a would look like 

Enter initial guess 

.5 

root = 1.000000 

iterations = 7 

Press any key to continue 


h 0 = 0.55 -0.53 = 0.02 
h, = 0.54 -0.55 = -0.01 
5n= 58- 19 = 1950 
0.55-0.53 

5,= 44-58 = 1400 

0.54-0.55 

a = Si- So = -55000 

hi + h 0 

b = a hi + 5i = 1950 


c = 44 


■\lb 2 —4 ac 


= 3671.85 


t„ — 0.54 + 


-2(44) 
1950 + 3671.85 


■ = 0.524 s 


Therefore, the pressure was zero at 0.524 seconds. 



7.18 


I) Graphically: 

EDU»C= [ 1 3.6 0 -36.4] ; roots (C) 

ans = -3.0262+ 2.3843i 

-3.0262- 2 . 3843i 
2.4524 

The answer is 2.4524 considering it is the only real root. 

II) Using the Roots Function: 

EDU» x— — 1 : 0 . 001 : 2 . 5 ; f=x . A 3+3.6.*x. A 2-36.4;plot(x,f) ; grid; zoom 

By zooming in the plot at the desired location, we get the same answer of 2.4524 . 



2.4523 2 . 45232 . 45242 . 45242 . 45242 . 45242 . 45242 . 45242 . 45242 . 45242.4524 


7.19 

Excel Solver Solution: The 3 functions can be set up as roots problems: 

fi(a,u,v ) = a 2 - a 2 +3v 2 = 0 
f 2 (a,u,v) = u + v- 2 = 0 

f 3 (a,u,v) = a" —2a — u = 0 






Symbolic Manipulator Solution: 


»syms a u v 

>>S=solve (u A 2-3*v A 2-a A 2, u+v-2, a A 2-2*a-u) 


>>double (S.a) 

ans = 2.9270 + 0.3050i 
2.9270 - 0 . 3050i 
-0.5190 
-1.3350 

>>double (S.u) 

ans = 2.6203 + 1.1753i 
2.6203 - 1 . 17 53i 
1.3073 
4.4522 

>>double (S.v) 

ans = -0.6203 + 1.1753i 
-0.6203 - 1 . 17 53i 
0.6297 
-2.4522 

Therefore, we see that the two real-valued solutions for a, u, and v are 
(-0.5190,1.3073,0.6927) and (-1.3350,4.4522,-2.4522). 

7.20 The roots of the numerator are: s = -2, s = -3, and s = -4. 

The roots of the denominator are: s = -1, s = -3, s = -5, and .v = -6. 
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9.14 

Here is a VBA program to implement matrix multiplication and solve Prob. 9.3 for the case 
of [X\x[Y\. 

Option Explicit 
Sub Mult () 

Dim i As Integer, j As Integer 
Dim 1 As Integer, m As Integer, n As Integer 
Dim x(10, 10) As Single, y(10, 10) As Single 
Dim w(10, 10) As Single 


1 = 2 
m = 2 
n = 3 


X 

i, 

1) 

= 1 : 

x (1, 

2) 

= 6 

X 

2, 

1) 

= 3: 

x (2, 

2) 

= 10 

X 

3, 

1) 

= 7 : 

x (3, 

2) 

= 4 

y 

1, 

1) 

= 6: 

y (2, 

1) 

= 0 

y 

2, 

1) 

= 1 : 

y (2, 

2) 

= 4 


Call Mmult(x(), y(), w(), m, n, 1) 

For i = 1 To n 
For j = 1 To 1 
MsgBox w(i, j) 

Next j 
Next i 

End Sub 

Sub Mmult(y, z, x, n, m, p) 

Dim i As Integer, j As Integer, k As Integer 
Dim sum As Single 

For i = 1 To m 
For j = 1 To p 
sum = 0 

For k = 1 To n 

sum = sum + y(i, k) * z(k, j) 

Next k 

x ( i , j ) = sum 
Next j 
Next i 

End Sub 

9.15 

Here is a VBA program to implement the matrix transpose and solve Prob. 9.3 for the case of 

m r . 

Option Explicit 
Sub Mult () 

Dim i As Integer, j As Integer 
Dim m As Integer, n As Integer 
Dim x(10, 10) As Single, y(10, 10) As Single 

n = 3 
m = 2 

x ( 1 , 1) = 1: x (1, 2) = 6 
x (2, 1) = 3: x (2 , 2) = 


10 



x ( 3 , 1) = 7: x (3, 2) = 4 
Call MTrans(x(), y(), n, m) 

For i = 1 To m 
For j = 1 To n 
MsgBox y(i, j) 

Next j 
Next i 

End Sub 

Sub MTrans(a, b, n, m) 

Dim i As Integer, j As Integer 

For i = 1 To m 
For j = 1 To n 

b(i, j) = a ( j , i) 

Next j 
Next i 

End Sub 

.16 

Here is a VBA program to implement the Gauss elimination algorithm and solve the test case 
in Prob. 9.16. 

Option Explicit 
Sub GaussElimO 

Dim n As Integer, er As Integer, i As Integer 

Dim a(10, 10) As Single, b(10) As Single, x(10) As Single 

Range ("al") .Select 
n = 3 

a (1, 1) = 1: a ( 1 , 2) = 1: a(l, 3) = -1 
a (2 , 1) = 6: a(2, 2) = 2: a(2, 3) = 2 
a (3, 1) = -3: a(3, 2) = 4: a(3, 3) ; 

b (1) = 1: b (2 ) = 10: b(3) = 2 

Call Gauss(a(), b(), n, x(), er) 

If er = 0 Then 
For i = 1 To n 

MsgBox "x (" & i & ") = " & x(i) 

Next i 
Else 

MsgBox "ill-conditioned system" 

End If 

End Sub 

Sub Gauss (a, b, n, x, er) 

Dim i As Integer, j As Integer 
Dim s ( 1 0 ) As Single 
Const tol As Single = 0.000001 
er = 0 

For i = 1 To n 

s (i) = Abs (a (i, 1) ) 

For j = 2 To n 

If Abs(a(i, j)) > s(i) Then s (i) = Abs(a(i, j)) 

Next j 
Next i 

Call Eliminate (a, s(), n, b, tol, er) 

If er <> -1 Then 



Call Substitute (a, n, b, x) 

End If 
End Sub 

Sub Pivot (a, b, s, n, k) 

Dim p As Integer, ii As Integer, jj As Integer 

Dim factor As Single, big As Single, dummy As Single 

P = k 

big = Abs(a(k, k) / s(k)) 

For ii = k + 1 To n 

dummy = Abs(a(ii, k) / s (ii) ) 

If dummy > big Then 
big = dummy 
p = ii 
End If 
Next ii 

If p <> k Then 
For jj = k To n 
dummy = a (p, j j ) 
a (p, j j ) = a (k, j j ) 
a ( k, j j ) = dummy 
Next jj 
dummy = b (p) 
b (p) = b (k) 
b ( k) = dummy 
dummy = s (p) 
s(p) = s (k) 
s (k) = dummy 
End If 
End Sub 

Sub Substitute (a, n, b, x) 

Dim i As Integer, j As Integer 
Dim sum As Single 
x (n) = b (n) / a (n, n) 

For i = n - 1 To 1 Step -1 
sum = 0 

For j = i + 1 To n 

sum = sum +a(i, j) * x(j) 

Next j 

x (i) = (b(i) - sum) / a(i, i) 

Next i 
End Sub 

Sub Eliminate (a, s, n, b, tol, er) 

Dim i As Integer, j As Integer, k As Integer 
Dim factor As Single 
For k = 1 To n - 1 

Call Pivot (a, b, s, n, k) 

If Abs(a(k, k) / s(k)) < tol Then 
er = -1 
Exit For 
End If 

For i = k + 1 To n 

factor = a(i, k) / a(k, k) 

For j = k + 1 To n 

a (i, j) = a (i, j) - factor * a(k, j) 

Next j 

b(i) = b(i) - factor * b(k) 

Next i 
Next k 

If Abs(a(k, k) / s(k)) < tol Then er = -1 
End Sub 


It’s application yields a solution of (1, 1, 1). 



/o 

/OJ yrhzJj-LLyc 

M{[u] {xl- ?Djj= M{xJ-( c ] 

,. [a m*}^hjui 

W?i]=- $ 2 } 

[0(u] = [AJ 


“jj -VwxJ. ^v*Ujjvuu$ 

A^AJLo 


Ch 3 - 


l m * 


r 

7 

<? 

' 

■ 3 

o 


-«?. /V- 3 

O 

0 

-6. /•?? 

7 


1 

7 

7 

-3 

/ 

-0<m 

— C.ao / 


UK>t^i •'♦tsnrvu^ J1£Ua^-Aj^{/-— 


to . a. 


W-3 [LlP$ = fc] 



Ow l^lxAranA 

7 ^ - 3 

o f,-m -i./y3 

O -l.2*fc -5T.57/ 


f a* m 

^3 1 ~ 

- 


a /7 ~ 0.2^57 

/-, - 0, 

- /■ 2? <2 ' -0-.57 
4-722 


t] - 


/ <3 <5 

i'2%51 I 0 

0.921 -0,21 / 

> 

Sa^irVAj 



r -« 1 
- /£>.snz [ - 
i~ 21,09/ - 


ftuxo &*>$ArW^^ 

[«KX] = ^d>3 


7 

© 

Z 

4.4Z°\ 

1 

-3. ^3 

I 

© 

m 

<9 

0 

-c,m^ 


UJ 



/ <9 o 

1 C-12 1 

— 

o.igs 7 I a 

a,- o,n 8 • =j^-^r 


|<3./V2<f -5,27 / 

^-2.- -1.^1 /- 29, 09 1 J 



^3 - 1 ,G >17 1 



0- J ^ £>1 

[ou 


a 

If i 51^ 

- 3 , m* 


<w -P mAtvu^ £uj£x^- 

%u/€c? /fc f ~ 0>J3S 
% A - 3.563 
= 0'5G3 

/0,f lUo[L]jo]^fb] 

/£f odkucr^ crj^ A 


O.'ISS') 

0 , 1 + 2.3 


<£> 

I 

-0.2.1 
,T 


© 

O 


1 



^b3 - L I -6,281b 

<^A [u]|k^ ~ ^3 


-0,21(0] 


7 2.-3 

(9 +.+Z+ 

0 0 -c.in 

A, ~ O.H'X 





O,o+i 


7 3 - 0 . 033 


■ 7 . ' 


1 -st" 
% 


( - I 


|trv y4J2^rv^J! OotlOUsA. A 

UM = \ 0 \ D 


U A\L<X\ ^ tA r-Oo 

M r =- 5 0 


>,7l] 


\ l ] =■[- 6.07 e 6,203 -O.&ytJ 

|^n 1/lJ cc^uwam ^ A 
IU* {kl T - [ooi^ 


^La *<A r\ 


<^oA&© 


{Dj - { 0 O l \ 

T~ 

JX] ~5 - 0 , 6+1 - 0 . 6 , 7 ? -(J.I4/J) 


-1 

0 . n<?^ 

-O.OiSr 

-O.OH-l 

A - 

-0,047 

0. Z £>3 

-6.&1 1\ 


0.01G 

-0,014-7 

-.£>. 1 

J 

A A' 

-1 

r 


16. S 

/ 7 

-7 - 

SI 


V -7 

? 

4 2 . 


/z -/ 

5 

r 


Pilrtrt 

12- -1 3 Sr 

f -H f SZ 
/ 7 -V -S'/ 


N ®o ^c!M}srsiA^Jl shmudOc 
enrv A 



-S <0 12 

H -r -/ 

I -2 12- 


^ , - 7n 

f 3/ = Yll 


\7 -I 3 
0 ~ 3 '^7 g 
0 7 . < 5*3 —4-* 25" 


PmjitP 


12 -t j r % 

0 7,013 -4.2? 

0 -l.lebl t ^2 


fii - '/^ f 3 | ■=- 4 '/i2- 


7,o S3 


' O <3 

0.08 y> | o 

0,^333 -Q,Sl7(>Z ) 


- / 3 

y.0i3 -735 

O S'- * 


//• J f £ j - f 

fD] T - 8 '57,&£7 32, 5-?/ 

Cul lx^ ■= 1 bl 


0/ , - - l-OfeS" 

*2,- -3.^23 

^ ^ r.t/q 


7r- -+/r 


it, UnM\ 

4 - -& 


“S' O l"2- 

o -I %-L 

b - 2 /4,4 

- 5" 0 /2- 

5 -2 /«.</ ^ 
0 - 1 *. (S, 

j ^r'^ 


L -- 


r / 

o 

-0,2. 

1 


OS 

'-S' 

o 

o 

-2 

o 

V 

O 


[ljfpj= fuco 

[J)] T ^ 40 - 7V *3 

^ tio ^ dJ 


U, - \30.Z2C, 
'X z s. 443, §57 

y 3 = ri . 



10,1 


I h7h L 3 -0.-8 hi! 


k - 3-5 5.H3 


-3. on 


U>^JU\JL — 


no 

55- 
- /o 5 


= A - 3(0,5)- ?,sf-/) = f- 


,7/V3 '*'357 

* * 

a 

0 

CP 

A ^ 

&> 

-/ 

0.5- 

0 



3 

*>.S 

4- 

m3, &57 l 





1 59- j 


/ 

-J/5* 

0 , 5 - 

7b O ) 

r~-, 

£ 

11 

0 

/ 

- / 

-■2- L 9 


O 

0 

1 

(-«o 






c v 7 \W 4,2 r 6 >l 

rj - W^, 3 S 7 

i/ 3 /, 7**3 


ld>% 2 /. 2| ~ ~~l ^Z\~ ^ 

— &13 - —a. sr 

U ( ^ = - o.s- 

in 

^VV ~ ~ ^ 2 .\^i" 2 _ 

- 3 — (-,)(- 2 ' 5 ) ^=- o»S~ 

i-ST- - Ck Zl _- 

— -4 - C-a.)(-2,5)^= ^-5" 


U 


33 


a- 


^3 


iz , u 


21 ^i 3 


•^' 2 T 2 _- 

-l - c-oco^") 




/<5< 

°0 


9 tU^Csr^ TioJ^A^aJl 


.-I 


Q.obq-t 0,t>aZ3£, 
o / o /70 6 lO^Oy 

0 ■ oiet o,o/js~ 


~\ 

6 . 00^56 
0,00io c l5' 
0 . 0 <f 3 2. 


U) A '< 1 ^ = £x] 

tO^\£fUL '(b 1 - 1 
^ 4 o - 



23.996 7 

/8 a ?<73 

/ 3 - 3 ?? 


0*1 


13 


cru 


^ ^ iw?. ujcvrfr 

- S' 


1=3 =. 


<S>,5* 




|Q»IQ Sco-&L Jfo 

-ft-o-o tv J\g%W JU±- fim-S- * 


| -6,Z33 0-233 

A = I 0. I 2^ 0.27 V 

o.l 55 O.0<fj/ I 


<0 cT^jfb/)- AC j 

0.0/84/2>(s-<?) - 0.^15 

( bz) — AC I 
0.0135 (lOO) — / . 35 " 


crv fc U AC ( ^ 5.37 


ciojuJk. ir^ ^<ri/ 

£c]> ^i>tk J 




? 2 |a £ ; 

- 

II All e - 

=■ i 3 .W - 

c^trOu^n^ 

ZMl 

1 

-?,/55 

Z 

0 . 557 

3 

3 . \ 2 l 

Ml, = 

IASS 

h/no 

jjsL 

i 

3 . IL(j> 

2 

h V 23 

2 

I > 2 52 - 


^Mll* - 2./££ 


NAtLdb 13.384 -*-*7 
= ii.tiy z ii . ik 
<2o Ji^umofcUL 


10 - lj F t^J-Gurv^ ^n^ais^uAj. 

frob I 0.10 uj^^F«T-Ct' Sco&wuj 




IIaIU = 

It-W 

MIL = 

n 

11 AH,. - 

IB -33 

IM ll«> = 

17 


lO.IR, 




- 1-lxiD 

s ,<* xto 

•4 

/& 

5.t * 10 

-1,7 %lO 

>4 

-f.bXlO 

Li X/0 lS ~ 

ill 

l. 9 xih 

t*4 

->K,L *LO 7 



Wl&Jt&v c eyjl ^ 
r 


17. £.4 



“'33,* 

(*1®0 

— lOTiO 


- IS- 23 

ayqz. 

-ISg-,3 


-IS7V 


— 42.5" 

— ii zt 
-73S. 3 

jlAll^ = 3.o4 
I /*''() * = ^2 3 

- I4V-7 

3.-2. 


"^fWiS- |paTj^ 3 o-l 4 j^x^^yUc^ 
■>|o^<{/ux® /yvv^L^ 4-©i4” 


10.14 

Option Explicit 
Sub LUDTest ( ) 

Dim n As Integer, er As Integer, i As Integer, 
Dim a (3, 3) As Single, b(3) As Single, x(3) As 
Dim tol As Single 

n = 3 

a (1, 1) = 3: a ( 1 , 2) = -0.1: a(l, 3) = -0.2 

a (2 , 1) = 0.1: a (2 , 2) = 7: a(2, 3) = -0.3 

a (3, 1) = 0.3: a(3, 2) = -0.2: a(3, 3) = 10 

b (1) = 7.85: b (2 ) = -19.3: b(3) = 71.4 
tol = 0.000001 

Call LUD(a(), b(), n, x(), tol, er) 

'output results to worksheet 
Sheets ("Sheetl") .Select 
Range ("a3") .Select 
For i = 1 To n 

ActiveCell . Value = x(i) 

ActiveCell .Of fset (1, 0). Select 


j As Integer 
Single 



Next i 

Range ("a3") .Select 
End Sub 

Sub LUD(a, b, n, x, tol, er) 

Dim i As Integer, j As Integer 
Dim o(3) As Single, s (3) As Single 
Call Decompose (a, n, tol, o(), s(), er) 

If er = 0 Then 

Call Substitute (a, o(), n, b, x) 

Else 

MsgBox "ill-conditioned system" 

End 
End If 
End Sub 

Sub Decompose (a, n, tol, o, s, er) 

Dim i As Integer, j As Integer, k As Integer 
Dim factor As Single 
For i = 1 To n 
o (i) = i 

s (i) = Abs (a (i, 1) ) 

For j = 2 To n 

If Abs(a(i, j)) > s(i) Then s(i) = Abs(a(i, j)) 
Next j 
Next i 

For k = 1 To n - 1 

Call Pivot (a, o, s, n, k) 

If Abs(a(o(k), k) / s(o(k))) < tol Then 
er = -1 
Exit For 
End If 

For i = k + 1 To n 

factor = a(o(i), k) / a(o(k), k) 
a (o (i) , k) = factor 
For j = k + 1 To n 

a (o (i) , j) = a (o (i) , j) - factor * a(o(k), j) 
Next j 
Next i 
Next k 

If (Abs(a(o(k), k) / s(o(k))) < tol) Then er = -1 
End Sub 

Sub Pivot (a, o, s, n, k) 

Dim ii As Integer, p As Integer 
Dim big As Single, dummy As Single 
P = k 

big = Abs(a(o(k), k) / s(o(k))) 

For ii = k + 1 To n 

dummy = Abs(a(o(ii), k) / s(o(ii))) 

If dummy > big Then 
big = dummy 
p = ii 
End If 
Next ii 
dummy = o (p) 
o (p) = o (k) 
o ( k) = dummy 
End Sub 

Sub Substitute (a, o, n, b, x) 

Dim k As Integer, i As Integer, j As Integer 
Dim sum As Single, factor As Single 
For k = 1 To n - 1 
For i = k + 1 To n 
factor = a (o (i) , k) 



factor * b (o (k) ) 


b(o(i) ) = b(o(i) ) - 
Next i 
Next k 

x (n) = b (o (n) ) / a(o(n), n) 

For i = n - 1 To 1 Step -1 
sum = 0 

For j = i + 1 To n 

sum = sum + a(o(i), j) * x(j) 

Next j 

x (i) = (b ( o ( i ) ) - sum) / a(o(i), i) 

Next i 
End Sub 

10.15 

Option Explicit 
Sub LUGaussTest ( ) 

Dim n As Integer, er As Integer, i As Integer, 


Dim 

a (3, 

. 3) As 

Single, 

b (3) 

As 

Single, 

x (3) 

Dim 

tol 

As Single, 

ai ( 

3, 3) 

As 

Single 


n = 

3 








a (1, 

1) 

= 3 : a 

(1, 2 

) = 

1 

o 
1— 1 

: a ( 

1, 3) = 

-0.2 

a (2, 

1) 

= 0.1: 

a (2, 

2) 

= 7 : 

a (2 

, 3) = 

-0.3 

a (3, 

1) 

= 0.3: 

a (3, 

2) 

= -0 

.2: 

a (3, 3) 

= 10 

tol 

= 0. 

.000001 








Call LUDminv(a(), b(), n, x(), tol, er, ai()) 
If er = 0 Then 

Range ("al") .Select 
For i = 1 To n 
For j = 1 To n 

ActiveCell .Value = ai(i, j) 

ActiveCell .Offset (0, 1). Select 
Next j 

ActiveCell .Of fset (1, -n). Select 
Next i 

Range ("al") .Select 
Else 

MsgBox "ill-conditioned system" 

End If 
End Sub 


Sub LUDminv(a, b, n, x, tol, er, ai) 

Dim i As Integer, j As Integer 
Dim o(3) As Single, s (3) As Single 
Call Decompose (a, n, tol, o(), s(), er) 
If er = 0 Then 
For i = 1 To n 
For j = 1 To n 
If i = j Then 
b(j) = 1 
Else 

b(j) = 0 
End If 
Next j 

Call Substitute (a, o, n, b, x) 

For j = 1 To n 
ai ( j , i) = x ( j ) 

Next j 
Next i 
End If 
End Sub 


j As Integer 
Single 


Sub Decompose (a, n, tol, o, s, er) 

Dim i As Integer, j As Integer, k As Integer 



Dim factor As Single 
For i = 1 To n 
o (i) = i 

s (i) = Abs (a (i, 1) ) 

For j = 2 To n 

If Abs(a(i, j)) > s(i) Then s(i) = Abs(a(i, j)) 
Next j 
Next i 

For k = 1 To n - 1 

Call Pivot (a, o, s, n, k) 

If Abs(a(o(k), k) / s(o(k))) < tol Then 
er = -1 
Exit For 
End If 

For i = k + 1 To n 

factor = a(o(i), k) / a(o(k), k) 
a (o (i) , k) = factor 
For j = k + 1 To n 

a (o (i) , j) = a (o (i) , j) - factor * a(o(k), j) 
Next j 
Next i 
Next k 

If (Abs(a(o(k), k) / s(o(k))) < tol) Then er = -1 
End Sub 

Sub Pivot (a, o, s, n, k) 

Dim ii As Integer, p As Integer 
Dim big As Single, dummy As Single 
p = k 

big = Abs(a(o(k), k) / s(o(k))) 

For ii = k + 1 To n 

dummy = Abs(a(o(ii), k) / s (o (ii) ) ) 

If dummy > big Then 
big = dummy 
P = ii 
End If 
Next ii 
dummy = o (p) 
o (p) = o (k) 
o ( k) = dummy 
End Sub 

Sub Substitute (a, o, n, b, x) 

Dim k As Integer, i As Integer, j As Integer 
Dim sum As Single, factor As Single 
For k = 1 To n - 1 
For i = k + 1 To n 
factor = a (o (i) , k) 

b ( o ( i ) ) = b ( o ( i ) ) - factor * b(o(k)) 

Next i 
Next k 

x (n) = b (o (n) ) / a(o(n), n) 

For i = n - 1 To 1 Step -1 
sum = 0 

For j = i + 1 To n 

sum = sum + a(o(i), j) * x(j) 

Next j 

x (i) = (b ( o ( i ) ) - sum) / a(o(i), i) 

Next i 
End Sub 
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10.17 

Xf? = 0^-4a + 2& = 3 (1) 

2 ■ C = 0 => 2a - 3c = -6 (2) 

5-C=2=>36 + c = 10 (3) 

Solve the three equations using Matlab: 

» A=[-4 2 0; 2 0 -3; 0 3 1] 
b= [ 3 ; -6; 10] 
x=inv (A) *b 

x = 0.525 
2.550 
2.350 

Therefore, a = 0.525, b = 2.550, and c = 2.350. 

10.18 

i ] k 

{AxB)= a b c = (-4b- c)i -(-4a + 2c) j + (a + 2b)k 

-2 1 -4 

i ] k 

{ AxC)=a b c = {2b-3c)i-{2a-c)j+{3a + b)k 

1 3 2 

(A x B) + (A x C) = {-2b - 4 c)J - {-2a + c) j + (4 a + b)k 



Therefore, 

(-2 b - 4c)z + (-2 a -c)j + (4 a + b)r = (5 a + 6)/ + (3b -2 )j + (-4c + 1 )k 

We get the following set of equations => 

- 2b - 4c = 5a + 6 => -5a -2b - Ac = 6 

2a - c = 3b -2 => 2a-3b-c = -2 

4 a + b = -4c + 1 => 4a + b - Ac = 1 

In Matlab: 

A= [ -5 -5 -4 ; 2 -3 -1 ; 4 1 -4] 

B= [ 6 ; -2 ; 1] ; x = inv (A) * b 

Answer => x = -3.6522 
-3.3478 
4.7391 

a = -3.6522, b = -3.3478, c = 4.7391 
10.19 

(I) /(0) = 1 => fl(0) + 6 = 1 => Z? = 1 

/ (2) = 1 => c(2) + t/ = l=>2c + r/ = l 

(II) If / is continuous, then at x = 1 

ax + b = c.y + d => a(l) + b = c(l) + d=>a + b-c-d = 0 

(III) a + 6 = 4 
0 1 0 ( 

0 0 2: 

1 1-1-1 
1 1 0 C 

Solve using Matlab => 




(1) 

(2) 

(3) 


10.20 MATLAB provides a handy way to solve this problem. 




(a) 

» a=hilb (3) 


1.0000 0.5000 0.3333 

0.5000 0.3333 0.2500 

0.3333 0.2500 0.2000 

» b :i 1 1] ' 

b = 

1 

1 

1 

>> c=a*b 


1.8333 
1 . 0833 
0.7833 


>> format long e 
>> x=a\b 


>> 


x = 


9. 999999999999991e-001 
1 . 000000000000007e+000 
9. 999999999999926e-001 


(b) 

» a=hilb (7) ; 

» b= [ 1 1 1 1 1 1 1]'; 
>> c=a*b; 

>> x=a\b 


9 . 999999999914417e-001 
1 . 00000000034474 6e+000 
9. 999999966568566e-001 
1 . 0000000130 60454e+000 
9. 999999759661609e-001 
1 . 000000020830062e+000 
9. 999999931438059e-001 


(c) 

» a=hilb (10) ; 

»b=[l 1 1 1 1 1 1 1 1 1 ] ' ; 
>> c=a*b; 

>> x=a\b 


9. 99999998754 6324e-001 
1 . 0000001074 66305e+000 
9 . 999977 12 998181 9e-001 
1 . 000020777 695 97 9e+000 
9. 99900 9454847 158e-001 
1 . 000272183037448e+000 
9. 995535966572223e-001 
1 . 0004312558 94 815e+000 
9. 997736605804316e-001 
1 . 000049762292970e+000 
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-1.5E+15 
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Matlab solution to Prob. 11.11 (ii): 

a= [1 4 9 16; 4 9 16 25;9 16 25 36;16 25 36 49] 
a = 

1 4 9 16 

4 9 16 25 

9 16 25 36 

16 25 36 49 

b= [ 30 54 86 126] 

b = 

30 54 86 126 

b=b ' 
b = 

30 

54 

86 

126 

x=a\b 

Warning: Matrix is close to singular or badly scaled. 

Results may be inaccurate. RCOND = 2 . 092682e-018 . 

x = 

1 . 1053 
0.6842 
1.3158 
0.8947 

x=inv (a) *b 

Warning: Matrix is close to singular or badly scaled. 

Results may be inaccurate. RCOND = 2 . 092682e-018 . 

x = 

0 

0 

0 

0 

cond (a) 
ans = 


4 . 0221e+017 
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Program Linsimp 
Use IMSL 
Implicit None 

Integer : : ipath, Ida, n, ldfac 
Parameter (ipath=l, lda=3, ldfac=3,n=3) 

Integer : : ipvt (n) , i, j 

Real : : A (Ida, Ida) , Rcond, Res (n) 

Real : :Rj (n) ,B(n) ,X(n) 

Data A/ 1.0, 0.5, 0.3333333, 0.5, 0.3333333, 0.25, 0.3333333, 0.25, 0.2/ 
Data B/ 1.833333, 1.083333, 0.783333/ 

Call linsol (n, A, B, X, Rcond) 

Print *, 'Condition number = ', l.OEO/Rcond 
Print * 

Print *, 'Solution:' 

Do I = 1 , n 

Print *, X(i) 

End Do 
End Program 

Subroutine linsol (n, A, B, X, Rcond) 

Implicit none 
Integer: :n, ipvt (3) 

Real : : A (n, n) , fac(n,n), Rcond, res (n) 

Real : : B (n) , X (n) 

Call lfcrg (n,A, 3, fac, 3, ipvt, Rcond) 

Call lfirg (n,A, 3, fac, 3, ipvt,B, 1,X, res) 

End 

11.13 

Option Explicit 
Sub TestChol ( ) 

Dim i As Integer, j As Integer 

Dim n As Integer 

Dim a (10, 10) As Single 

n = 3 

a (1, 1) = 6: a (1, 2) = 15: a(l, 3) = 55 
a (2 , 1) = 15: a(2, 2) = 55: a(2, 3) = 225 
a (3, 1) = 55: a(3, 2) = 225: a(3, 3) = 979 

Call Cholesky (a ( ) , n) 

'output results to worksheet 
Sheets ("Sheetl") .Select 
Range ("a3") .Select 
For i = 1 To n 
For j = 1 To n 

ActiveCell .Value = a(i, j) 

ActiveCell .Offset (0, 1). Select 
Next j 

ActiveCell .Offset (1, -n). Select 
Next i 

Range ("a3") .Select 
End Sub 

Sub Cholesky (a, n) 

Dim i As Integer, j As Integer, k As Integer 
Dim sum As Single 



1 


For k = 1 To n 
For i = 1 To k - 
sum = 0 
For j = 1 To i - 1 

sum = sum + a(i, j) * a(k, j) 

Next j 

a(k, i) = (a(k, i) - sum) / a(i, i) 

Next i 
sum = 0 

For j = 1 To k - 1 

sum = sum + a(k, j) A 2 
Next j 

a(k, k) = Sqr(a(k, k) - sum) 

Next k 

End Sub 

11.14 

Option Explicit 
Sub GausseidO 

Dim n As Integer, imax As Integer, i As Integer 
Dim a (3, 3) As Single, b(3) As Single, x(3) As Single 
Dim es As Single, lambda As Single 
n = 3 

a (1, 1) = 3: a ( 1 , 2) = -0.1: a(l, 3) = -0.2 

a (2 , 1) = 0.1: a (2, 2) = 7: a(2, 3) = -0.3 

a (3, 1) = 0.3: a(3, 2) = -0.2: a(3, 3) = 10 

b (1) = 7.85: b (2) = -19.3: b(3) = 71.4 
es = 0.1 
imax = 20 
lambda = 1# 

Call Gseid(a(), b(), n, x(), imax, es, lambda) 

For i = 1 To n 
MsgBox x ( i ) 

Next i 
End Sub 

Sub Gseid(a, b, n, x, imax, es, lambda) 

Dim i As Integer, j As Integer, iter As Integer, sentinel As Integer 
Dim dummy As Single, sum As Single, ea As Single, old As Single 
For i = 1 To n 
dummy = a ( i , i ) 

For j = 1 To n 

a(i, j) =a(i, j) / dummy 
Next j 

b ( i ) = b ( i ) / dummy 
Next i 

For i = 1 To n 
sum = b (i) 

For j = 1 To n 

If i <> j Then sum = sum -a(i, j) *x(j) 

Next j 
x(i) = sum 
Next i 
iter = 1 
Do 

sentinel = 1 
For i = 1 To n 
old = x(i) 
sum = b (i) 

For j = 1 To n 

If i <> j Then sum = sum -a(i, j) *x(j) 

Next j 



x(i) = lambda * sum + (1# - lambda) * old 
If sentinel = 1 And x(i) <> 0 Then 
ea = Abs ( (x (i) - old) / x(i)) * 100 
If ea > es Then sentinel = 0 
End If 
Next i 

iter = iter + 1 

If sentinel = 1 Or iter >= imax Then Exit Do 
Loop 
End Sub 


1 1.15 As shown, there are 4 roots, one in each quadrant. 



It might be expected that if an initial guess was within a quadrant, the result wouls be the 
root in the quadrant. However a sample of initial guesses spanning the range yield the 
following roots: 


6 

(-2, -4) 

(-0.618,3.236) 

(-0.618,3.236) 

(1,2) 

(-0.618,3.236) 

3 

(-0.618,3.236) 

(-0.618,3.236) 

(-0.618,3.236) 

(1,2) 

(-0.618,3.236) 

0 

(1,2) 

(1.618, -1.236) 

(1.618, -1.236) 

(1.618, -1.236) 

(1.618, -1.236) 

-3 

(-2, -4) 

(-2, -4) 

(1.618, -1.236) 

(1.618, -1.236) 

(1.618, -1.236) 

-6 

(-2, -4) 

(-2, -4) 

(-2, -4) 

(1.618, -1.236) 

(-2, -4) 


-6 

-3 

0 

3 

6 


We have highlighted the guesses that converge to the roots in their quadrants. Although 
some follow the pattern, others jump to roots that are far away. For example, the guess of 
(-6, 0) jumps to the root in the first quadrant. 

This underscores the notion that root location techniques are highly sensitive to initial 
guesses and that open methods like the Solver can locate roots that are not in the vicinity of 
the initial guesses. 

11.16 

x = transistors 
y = resistors 
z = computer chips 


System equations: 


3x + 3y + 2z = 810 
x + 2v+ z = 4 1 0 
2x+ y + 2z = 490 




Let A = 


'3 3 2 


' 810 ' 

1 2 1 

and B = 

410 

2 1 2 


_ 490 _ 


Plug into Excel and use two functions- minverse rninult 

Apply Ax = B 

x = A 1 * B 

Answer: x = 100, y = 1 10, z = 90 

1 1 . 1 7 As ordered, none of the sets will converge. However, if Set 1 and 3 are reordered so that 
they are diagonally dominant, they will converge on the solution of (1, 1, 1). 

Set 1: 8x + 3y + z =12 

2x + 4y - z =5 
-6x +7z = 1 


Set 3: 3x + y-z =3 

x + 4y - z =4 
x + y +5z =7 

At face value, because it is not diagonally dominant, Set 2 would seem to be divergent. 

However, since it is close to being diagonally dominant, a solution can be obtained by the 

following ordering: 

Set 3 : -2x + 2y - 3z = -3 
2y~ z =1 
-x +4y +5z = 8 

11.18 


Option Explicit 
Sub TriDiagO 

Dim i As Integer, n As Integer 

Dim e(10) As Single, f(10) As Single, g(10) As Single 

Dim r(10) As Single, x(10) As Single 

n = 4 

e (2 ) = -1.2: e(3) = -1.2: e(4) = -1.2 

f ( 1 ) = 2.04: f (2) = 2.04: f (3 ) = 2.04: f ( 4 ) = 2.04 

g ( 1 ) = -1: g (2) = -1: g (3) = -1 

r ( 1 ) = 40.8: r(2) = 0.8: r(3) = 0.8: r(4) = 200.8 
Call Thomas (e(), f(), g(), r(), n, x()) 

For i = 1 To n 
MsgBox x ( i ) 

Next i 
End Sub 

Sub Thomas (e, f , g, r, n, x) 

Call Decomp (e, f, g, n) 

Call Substitute (e, f, g, r, n, x) 

End Sub 



Sub Decomp (e, f, g, n) 

Dim k As Integer 
For k = 2 To n 

e (k) = e (k) / f(k - 1) 
f ( k) = f (k) - e (k) * g ( k - 1) 

Next k 
End Sub 

Sub Substitute (e, f, g, r, n, x) 

Dim k As Integer 
For k = 2 To n 

r ( k) = r ( k) -e(k) *r(k-l) 

Next k 

x (n) = r (n) / f (n) 

For k = n - 1 To 1 Step -1 

x ( k ) = (r(k) - g (k) * x(k t 1)) / f(k) 
Next k 
End Sub 


11.19 The multiplies and divides are noted below 

Sub Decomp (e, f, g, n) 

Dim k As Integer 
For k = 2 To n 

e (k) = e(k) / f (k - 1) ' (n - 1) 

f ( k) = f (k) - e (k) * g ( k - 1) ' (n - 1 ) 

Next k 
End Sub 

Sub Substitute (e, f, g, r, n, x) 

Dim k As Integer 
For k = 2 To n 

r ( k) = r ( k) - e(k) * r(k - 1) 

Next k 

x (n) - r (n) / f (n) 

For k = n - 1 To 1 Step -1 

x (k) = (r (k) - g (k) * x (k + 1) ) 

Next k 
End Sub 


' (n - 1) 

' 1 

/ f (k) ' 2 (n - 1) 


Sum = 5 (n-1) + 1 

They can be summed to yield 5 (n - 1) + 1 as opposed to it’ll) for naive Gauss elimination. 
Therefore, a tridiagonal solver is well worth using. 
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12.9 


— >+ ^F T =0: Pcos 21.5° -Mcos 37° -Mcos 80° = 0 
0.93042P- 0.9723M = 0 (1) 

T+ JV v =0: Psin 21.5° +Msin37° -Msin80° = 0 
0.3665P- 0.383M = 0 (2) 


Use any method to solve equations (1) and (2): 


cos21.5° -(cos37° +cos80°) 

sin21.5° (sin37° - sin80°) 


B = 


0 

0 


Apply Ax = B where x 


P 

M 


Use Matlab or calculator for results 

P = 314 lb 
M = 300 lb 



12.10 Mass balances can be written for each reactor as 


0 = 8in c A,in ~ @in c A,l ~ h^\ c A,\ 

o=a n ^i+^i^,i 

0 = 0in c 4,l + 032 C A3 - (0in + 032 ) C A, 2 ~ ^2^2 C A,2 
0 = 0in c 5,l + 032 c 5,3 _ (Sin + 032 ) C B, 2 + ^ 2 C A,2 
0 = (Sin + 032 ) C A,2 + 043 C A4 _ (0in + 043 ) C A, 3 ~ ^3^3° A, 3 
0 = (Sin + 032 ) < '5,2 + 043 c 5,4 “ (0in + 043) c 5,3 + ^3 C A,3 
0 = (0in + 043 ) C A,3 “ (0in + 043 ) C A, 4 _ ^4^4 C A,4 
0 = (0in +043) c 5,3 _ (0in + 043) c 5,4 + ^4^4 C 44 


Collecting terms, the system can be expresses in matrix form as 

[A\{C} = {Bj 

where 
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-10 
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22.5 
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-10 

-7.5 

15 

0 

-5 

0 
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0 

0 

-15 

0 

68 

0 

-3 
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0 

0 

0 

-15 

-50 

18 

0 

-3 


0 

0 

0 

0 

-13 

0 

15.5 

0 


0 

0 

0 

0 

0 

-13 

-2.5 

13 


[10000000000] 

[q T 

= [c A , 1 

Cb, 1 Ca , 2 Cb, 2 Ca,3 Cb , 3 Ca, 4 Cb, 4 ] 


The system can be solved for [q T = [0.889 0.111 0.416 0.584 0.095 0.905 0.080 
0.920], 



12.1 1 Assuming a unit flow for Q\, the simultaneous equations can be written in matrix form 
as 
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, — < 
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1 0 

1 -1 

0 0 
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0 
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-1 

0 

0 

-1 

05 

06 
. 07 . 


1 

0 
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These equations can be solved to give [£>] T = [0.7321 0.2679 0.1964 0.0714 0.0536 
0.0178], 
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12.20 Find the unit vectors: 


/ 

,4 

V 


1 i -2j — 4k 
7l 2 + 2 2 +4 2 


\ 

= 0.218/ - 0.436 j- 0.873£ 

y 


/ 

v 


2/ + 1/ - 4£ 

,/l 2 + 2 2 +4 2 


3 


y 


0.436/’ + 0.218 j- 0.873£ 


Sum moments about the origin: 

£M ot = 50(2) - 0.4365(4) - 0.2 1 8,4(4) = 0 

£M ov = 0.436,4(4) - 0.2 1 85(4) = 0 


Solve for A & B using equations 9.10 and 9.1 1 : 


a j j x j l d j xr 2 
^21-^2 a 22 X 2 



In the fonn 



-0.872,4 + -1.7445 = -100 
1 .744 A + -0.8725 = 0 


Plug into equations 9.10 and 9.11: 


x. 


a 2lb\ a \2p2 


87.2 

3.80192 


= 22.94 


N 


x 2 


a n b 2 a 2p\ 

a \\ a 22 ~ a i2 a 2l 


174.4 

3.80192 


= 45.87 


N 


12.21 


f 

T 

V 


1/ + 6j -4k 
Vl 2 +6 2 +4 2 


0.1374/'+ 0.824 j-0.549A' 


'LM y = -5(1) + -0.5495(1) = 0 


T = 9.107 kN 

T x = 1 .25 1 kN , T y = 7.50 kN , T. = -5 kN 

LM x = -5(3) + -7.5(4) + -5(3) + 5. (3) = 0 B : = 20 kN 

'LM, = 7.5(3) + 1.25 1(3) + B x (3) = 0 

B x = -3.751 kN 

L5; = -5 + -5 + A z +20 = 0 

A z = -10 kN 

F X = A x + -3.75 1 + 1 .25 1 = 0 A x = 2.5 kN 

I F y = 7.50 + A y =0 Ay = -7.5 kN 


12.22 This problem was solved using Matlab. 

A = [1 000000010 
0010000100 
0103/5000000 
-100 -4/5 000000 
0-100003/5000 
0000-10 -4/5 000 
00-1 -3/5 010000 
0004/5100000 
00000-1 -3/5 000 
0000004 / 5001 ]; 

b = [0 0 -54 00240000]; 


x=inv (A) *b 


x 



24 . 0000 
- 36.0000 

54 . 0000 
- 30 . 0000 

24 . 0000 

36.0000 
- 60 . 0000 
- 54 . 0000 
- 24 . 0000 

48 . 0000 

Therefore, in kN 


AB = 24 
DE = 36 


BC = -36 
CE = -60 


AD = 54 
A x = -54 


BD = -30 CD 

Ay= -24 Ey = 
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12.27 This problem can be solved directly on a calculator capable of doing matrix operations 
or on Matlab. 

a= [ 60 -40 0 

-40 150 -100 
0 -100 130] ; 
b= [200 
0 

230] ; 

x=inv (a) *b 
x = 

7.7901 

6.6851 

6.9116 


Therefore, 

T = 7.79 A 
h = 6.69 A 
13 = 6.91 A 

12.28 This problem can be solved directly on a calculator capable of doing matrix operations 
or on Matlab. 


a= [ 17 -8 -3 



-2 6 -3 
-1 -4 13] ; 
b= [480 
0 

0 ] ; 


x=inv (a) *b 


37.3585 
16.4151 
7 . 9245 


Therefore, 


Vi = 37.4 V 
V 2 = 16.42 V 
V 3 = 7.92 V 


12.29 This problem can be solved directly on a calculator capable of doing matrix operations 
or on Matlab. 

a= [ 6 0-41 
08-8-1 
-4 -8 18 0 
-1 1 0 0 ]; 

b= [ 0 
-20 
0 

10 ] ; 


x=inv (a) *b 


-7.7778 

2.2222 

-0.7407 

43.7037 


Therefore, 


I, =-7.77 A 
h = 2.22 A 
Is = -.741 A 
V s = 43.7 V 


12.30 This problem can be solved directly on a calculator capable of doing matrix operations 
or on Matlab. 


a= [ 55 0 -25 
0 37 -4 
-25 -4 29] ; 
b= [-200 
-250 
100 ] ; 


x=inv (a) *b 



-4 .1103 
-6.8695 
-1 . 0426 

Therefore, 


I, = -4.11 A 
I 3 = -6.87 A 
I* = -1.043 A 
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12.37 


%massspring34 .m 




- (k2/m2) 


(l/m2) * (k2+k3) 


- (k3/m2 ) 


kl=10 ; 
k2 = 4 0 ; 
k3=4 0 ; 
k4=10 ; 
ml = l ; 
m2 = l ; 


m3=l ; 

km=[ (1/ml) * (k2+kl) , -(k2/ml),0; 
0, - (k3/m3) , (l/m3) * (k3 + k4) ] ; 

X= [0 . 05; 0 . 04; 0 . 03] ; 
kmx=km*X 


kmx = 


0 . 9000 
0 . 0000 
- 0 . 1000 


Therefore, 3c, = -0.9, x 2 = 0 , and x 3 = 0.1 m/s 2 . 
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16.4 (a) The total LP formulation is given by 

Maximize C = 0.1 5X + 0.0257 + 0.05Z {Maximize profit} 


subject to 

X + 7 + Z > 6 
X + 7 < 3 
X - 7 > 0 


{Material constraint} 

{Time constraint} 

{Storage constraint} 


Z - 0.57 > 0 


{Positivity constraints} 


(b) The simplex tableau for the problem can be set up and solved as 



(c) An Excel spreadsheet can be set up to solve the problem as 
The Solver can be called and set up as 
The resulting solution is 

In addition, a sensitivity report can be generated as 

(i d) The high shadow price for storage from the sensitivity analysis from (c) suggests that 
increasing storage will result in the best increase in profit. 

16.5 An LP formulation for this problem can be set up as 

Maximize C = 0.1 5X + 0.025 7 + 0.05 Z {Maximize profit} 

subject to 

X + Y + Z> 6 {X material constraint} 

X + Y < 3 {7 material constraint} 

X - Y > 0 {Waste constraint} 

Z - 0.57 > 0 {Positivity constraints} 

(, b ) An Excel spreadsheet can be set up to solve the problem as 


The Solver can be called and set up as 
The resulting solution is 

This is an interesting result which might seem counterintuitive at first. Notice that we 
create some of the unprofitable z 2 while producing none of the profitable z 3 . This occurred 
because we used up all of 7 in producing the highly profitable z\. Thus, there was none left 
to produce z 3 . 

16.6 Substitute xb = 1 - xt into the pressure equation, 

(1 - x T )P satfi + x T P sat t = P 

and solve for xt. 


P-P 


' sat T 


sat„ 


where the partial pressures are computed as 



1211 j 
T +221 J 


( 1 ) 



1344 


sat „ 



6 . 953 - 

T+219 


The solution then consists of maximizing Eq. 1 by varying T subject to the constraint that 0 
<xt< 1 . The Excel solver can be used to obtain the solution of T= 1 1 1 .04. 



BIO zi = =(P-PsatB)/(PsatT-PsatB) 



A 

B 

c 

~D E | F 

G 

H 
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Prob16.6 
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T 

1 1 1 .0439 
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P 

760 





6 







7 

PsatB 

1810.887 

< 

=10 A (6. 905-121 1/(T+221)) 



8 

PsatT 

760.0005 

< 

= 1 0 A (6 ,953-1344/(T+219)) 



9 







10 

xT 

L 





11 










16.7 This is a straightforward problem of varying xa in order to minimize 


f(x A ) : 


1 


\0.6 

r_i_T 

+ 5 

J 



(a) The function can be plotted versus Xa 



(b) The result indicates a minimum between 0.5 and 0.6. Using Golden Section search or a 
package like Excel or MATLAB yields a minimum of 0.564807. 



16.8 This is a case of constrained nonlinear optimization. The conversion factors range between 0 and 1. In 
addition, the cost function can not be evaluated for certain combinations of XA1 and XA2. The 
problem is the second term, 


1 - 


*41 


\ 0.6 


k A2 


( 1 — X 


All 


If > Xa2, the numerator will be negative and the term cannot be evaluated. 
Excel Solver can be used to solve the problem: 


B5 
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0.5 
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0.6 
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Cost 

' 978774081 
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13 



14 



15 
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Solver Parameters 


Set Target Cell: 

Equal To: C Max 

By Changing Cells: 

|$B$2:$B$3 


(* Min C Value of: |o 


Subject to the Constraints: 


3J 


Guess 


XA1 <= 1 
XA1 <= XA2 
XA1 >= 0 
XA2 <= 1 
XA2 >= 0 


zi 


Add 


Change 


Delete 


_?|xj 


Solve 


Close 


Options 


Reset All 


Help 


The result is 



A 

B 1 

1 



2 

XA1 

0.342922 
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XA2 

0.602698 

4 



5 

Cost 

9.7821761 
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10 



11 
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13 
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Solver Results 


Solver has converged to the current solution. All 
constraints are satisfied. 


(• Ikeep Solver Solution I 
C Restore Original Values 


OK 


Cancel 


Reports 


-U*i 


Answer 


Sensitivity 

Limits 

zl 


Save Scenario... 


Help 



16.9 Errata: Change Bo to 100, 


This problem can be set up on Excel and the answer generated with Solver: 
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1 C 

1 

Prob. 16.9 
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BO 

100 
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CA 

-1 
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CC 

10 


7 
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AO 

100 
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200 


10 




11 
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-300 


12 
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-100 


13 
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Kcalc 

-2.2E-05 


15 
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! 1900} 
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Set Target Cell: [1 

Equal To: (• Max 


C Min C Value of: 


JJxJ 


By Changing Cells: 
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Guess 





Options 


A >= 0 

Add 



A0 >= 0 




B >= 0 

Chanqe I 







K = Kcalc 

Delete | 







The solution is 
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9 

C 

99.26672 



10 

1 

1 1 

[ 

11 

A 

11.63501 


12 

B 

0.73328 



13 





14 

Kcalc 

1 .000001 



15 




16 

Profit 

782.4987 



D 

E 

F 

G 

H 

1 1 


























Solver Results 


Reports 


(* Keep Solver Solution 
Restore Original Values 


dd 


Answer 


Sensitivity 

Limits 

d 


Save Scenario.. 


Help 


16.10 The problem can be set up in Excel Solver. 



A 

B 1 

i 

Prob. 16.10 


2 



3 

Unitcostl 

$ 0.50 

4 

Unitcost2 

$ 1.00 

5 

Unitcost3 

S 1.20 

6 



7 

concl 

135 

8 

conc2 

100 

9 

conc3 

75 

10 



11 

Suppiyl 

500000 

12 

Supply2 

500000 

13 

Supply3 

500000 

14 



15 

Flowl 

416667 

16 

Flow2 

0 

17 

Flow3 

583333 

18 



19 

Flowt 

1000000 

20 



21 

Flowr 

1000000 

22 



23 

ConcBulk 

100.0000003 

24 



25 

Concr 

100 

26 

27 



Total cost 

*908.333 33 1 


I i 1 


Solver Parameters 


_Ud 


Set Target Cell: | Total cost 

Equal To: C Max <• Min C Value of: 

-By Changing Cells: 

|$B$15:$B$17 
Subject to the Constraints: 


ConcBulk <= Concr 
Flowl >= 0 
Flow2 >= 0 
Flow3 >= 0 
Flowt = Flowr 


“3 

U 

d 


Add 


Change 

Delete 


Options 


Reset All 


Help 


=Flow1 +Flow2+Flow3 


=(Flow1 *conc1 +Flow2*conc2+Flow3*conc3)/Flowt 


=Unitcost1*Flow1 +Unitcost2*Flow2+Unitcost3*Flow3 




The solution is 


15 

FI owl 

416667 

L7d 






16 

Flow2 

0 

L7d 






17 

Flow3 

583333 

L7d 






18 









19 

Flowt 

1000000 

L2d 

=Flow1 +Flow2+Flow3 




20 









21 

Flowr 

1000000 

L7d 






22 









23 

ConcBulk 

100.0000003 

mg/L 

=(Flow1 *conc1 +Flow2*conc2+Flow3*conc3)/Flowt 

24 









25 

Conor 

100 

mg/L 






26 









27 

Total cost 

$908,333.33 


=Unitcost' 

< 'Flow1+Unitcost2'*'Flow2+Unitcost3’'Flow3 


16.11 



e 


The following formulas can be developed: 


w 

e = — 

2 

9 = tan -1 — 

e 


s = ' \ld 2 + e 2 


P = 2s 


A = 


wd 

2 


(5) 


( 1 ) 

( 2 ) 

(3) 

(4) 


Then the following Excel worksheet and Solver application can be set up: 



A 

B 

c 

D 

E 


1 

Adesired 

100 

m2 




2 







3 

d 

5 

m 




4 

w 

5 

m 




5 







6 

e 

2.5 

m 




7 

theta 

1.107148718 

radians 

63.43495 

degrees 


8 







9 

s 

5.590169944 

m 




10 

p 

11.180339891 

m 




11 







12 

Acomputed 

12.5 

m2 




13 







14 







15 








F I G 1 H 


Solver Parameters 


Set Target Cell: 


Equal To: C Max f 7 Min 

-By Changing Cells: 

J$B$3:$B$4 

Subject to the Constraints: 


Acomputed = Adesired 
d >= 0 
e >= 0 
s >= 0 
w >= 0 


31 

C Value of: 

31 


3 

zl 


Add 


Change | 
Delete | 


- 21*1 


Solve 


Close 


Options 


Help 


Note that we have named the cells with the labels in the adjacent left columns. Our goal is 
to minimize the wetted perimeter by varying the depth and width. We apply positivity 
constraints along with the constraint that the computed area must equal the desired area. 
The result is 



Thus, this specific application indicates that a 45° angle yields the minimum wetted 
perimeter. 

The verification of whether this result is universal can be attained inductively or 
deductively. The inductive approach involves trying several different desired areas in 
conjunction with our solver solution. As long as the desired area is greater than 0, the 
result for the optimal design will be 45°. 

The deductive verification involves calculus. The minimum wetted perimeter should occur 
when the derivative of the perimeter with respect to one of the primary dimensions (i.e., w 
or d) flattens out. That is, the slope is zero. In the case of the width, this would be 
expressed by: 



dw 


If the second derivative at this point is positive, the value of w is at a minimum. To 
formulate P in terms of w, substitute Eqs. 1 and 5 into 3 to yield 


s = \J(2A/w) +(w/2 ) 2 

( 6 ) 


Substitute this into Eq. 4 to give 



P = 2~J(2A/ w) 2 + (w/2) 2 

(V) 

Differentiating Eq. 7 yields 
dP _ -8A 2 / w 3 + w/ 2 _ Q 

dw J(2 A/w) 2 +(w/2) 2 

( 8 ) 

Therefore, at the minimum 
-8 A 2 / w 3 + w/2 = 0 

(9) 

which can be solved for 

w = 2 -Ja 

( 10 ) 

This can be substituted back into Eq. 5 to give 

d = \[A 

( 11 ) 

Thus, we arrive at the general conclusion that the optimal channel occurs when w = 2d. 
Inspection of Eq. 2 indicates that this corresponds to 0 = 45°. 

The development of the second derivative is tedious, but results in 

d 2 P A 2 l 7 y 

-^ = 32 — J(2A/w) 2 +(w/2) 2 

dw w 

( 12 ) 

Since A and w are by definition positive, the second derivative will always be positive. 



b 


e 



The following formulas can be developed: 


d 


e = 

tanB 


( 1 ) 


<N 

1 

£ 

II 

( 2 ) 

s = V d 2 + e 

( 3 ) 

P = 2s + b 

( 4 ) 

. w+ br 
A = d 

( 5 ) 


2 

Then the following Excel worksheet and Solver application can be set up: 


p 

A 


1 Adesired 


2 


3 

d 

4 

w 

5 

theta 

6 


7 

e 

8 

b 

9 

s 

10 

p 

11 


12 

Acomputed 

13 


14 


15 



= =2*s+b 



Note that we have named the cells with the labels in the adjacent left columns. Our goal is 
to minimize the wetted perimeter by varying the depth, width and theta (the angle). We 
apply positivity constraints along with the constraint that the computed area must equal the 
desired area. We also constrain e that it cannot be greater than wl 2. The result is 



Thus, this specific application indicates that a 60° angle yields the minimum wetted 
perimeter. 


16.13 


^ ends 271 / 

Aide = 2 ™'h 

4 = A 4 -4 

total ^ ends ' ** side 
2 

^ computed ~ ^ 


Cost AndsAnds ^ side Aide ^operate ^operate 

Then the following Excel worksheet and Solver application can be set up: 


CostTotal 2 ] = =SUM(CostEnd:CostOp) 



— A"^ 

B 

C 

D 

E | 

F 

1 G i H | i | 3 | K | L 

M 

1 

p. n h 1C 








1 

1 lOD. 1 D. 1 0 







JLl*l 

2 








3 

hside 

1 

m 

Vdesired 

10 

m3 

Set T arget Cell : | 

| Solve 

4 

5 

dend 

1 

m 

Vcomputed 

0.785398 

m3 

Equal To: C Max (* Min Value of: |0 

Close 








..Ou rke.nnirs.-i ralli-. 

1 

B 

dend: hside 

1 


Aend 

1.570796 

m2 


uy u 141 lyn ly ---c-uu. 


7 




Aside 

3.141593 

m2 


|$B$3:$B$4 Guess 


8 

rend 

0.5 

m 

Atotal 

4.712389 



- 4 i thiprl hn thp C nnclKPiritc 

. .. | 

9 








juuicu. uj u ic ^_ui i2*u 011 ics. 

Options | 

10 

FEnd 

$ 0.10 

$/m2 

CostEnd 

I 0.16 



Vdesired = Vcomputed jJ Add 


11 

FSide 

$ 0.05 

$/m2 

CostSide 

t 0.16 



Change | 


12 

FOperate 

I 1.00 

$/m2 

CostOp 

I 4.71 



Reset All 1 

13 








y j Delete | 

~ 1 

l 

J4] 




CostTotal | 

:$■' 5“03‘] 

1 

1 



Help 

15 










which results in the following solution: 


CostTotal H = =SUM(CostEnd: CostOp) 



16.14 Excel Solver gives: x = 0.5,^ = 0.8 and /™ = -0.85. 
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16.19 


16.20 

!C> 


100=* 

4L 2 

35 = nr 2 L 

4L 2 =71 3 (.29)r 4 

*-4 

Kr 

Z = 1.499r 2 


r = 1 .65 W7 


Z = 4.08 777 


<N 

II 

II 

1 — 1 

Is = 2 


h = 0 


Is = 2 


P= 80 


'^-1 LLAi/r^ l-o&yo ot/vt<d? 
A JcrzLe, ^oJ^o^cjl<x> 

A i I £ z. (& 

t- f r 

/6 3 — 

i 2 — Al^AAS' 


u ! fcj A, f/i s 


IK 

^'2- 


*3 ^ 3 "" iq- Kif t /£- — O 
f)&w4s\ ~ 3 

(JjCJL/YI^ FE-^arJ} ^o»-6«A-e^7 


3 = 

10.0 

7?,=. 

2,£> 

*4 = 

f.O 

4 = 

IO 

4- 

1 

r 

// j — 

4-.? 

4- 

. S’. S' 
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iij. - 4>£ 
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16.22 


Total cost is 

C = 2fi + I0p 2 + 2 

Total power delivered is 


P = 0.6 p x + 0Ap 2 


Using the Excel Solver: 


B12 

-1 

= 


A 

B 


1 

Prob. 16.22 


2 




3 

Pi 

29.995 


4 

P2 

24.49592 


5 




6 

FI 

61.99 


7 

F2 

244.9592 


8 




9 

LI 

6.243959 


10 

L2 

18.24696 


11 




12 

P 

30 


13 




14 

Cost 

306.9492 


15 





= =B3+B4-B9-B10 


Solver Parameters 


Set Target Cell: 

Equal To: C Max 

-By Changing Cells: 

Subject to the Constraints: 


H3 

Min C Value of: 


$B$12 = 30 
$B$3 >= 0 
$B$4 >= 0 


3J 

u 

d 


Add 


Change 


Delete 


Ud 


Solve 


Close 


Options 


Reset All 


Help 


which yields the solution 



A 

B 

1 

Prob. 16.22 

2 



3 

Pi 

29.995 

4 

P2 

24.49592 

5 



6 

FI 

61.99 

7 

F2 

244.9592 

8 



9 

LI 

6.243959 

10 

L2 

18.24696 

11 



12 

P 

30 

13 



14 

Cost 

306.94921 

15 




Solver Results 


Solver found a solution. All constraints and optimality 
conditions are satisfied. 


iKeep Solver Solution 


C Restore Original Values 




Cancel 


Reports 


J?jxj 


Answer 


Sensitivity 

Limits 

d 


Save Scenario.. 


Help 


16.23 This is a trick question. Because of the presence of (1 — s) in the denominator, the function will 

experience a division by zero at the maximum. This can be rectified by merely canceling the ( 1 - s) 
tenns in the numerator and denominator to give 


As 2 -35 + 4 

Any of the optimizers described in this section can then be used to determine that the maximum of T 
= 3 occurs at s = 1. 



S ^/ifiorry {3jC£j2^t 

^ V Oivun 

1 J : OOQ 

H$3, 6,(* 


HI, 00 ® 

so 3 . Hi 

jszt+.n 

>H , 0O ° 

. HI 

31 £<1.10 

/•r, ooo 

5W,1f 

39M.M 

H, ,ooo 


3i n <°n 

M^OOO 

5~OS,C,7 

3-3 y3^/ 

1 M d O 

512- 36, 

3 5 OK.iS 

UAca^ ^Unrs 

cA ' 

= (9, «. ^ 3^8 


D 

=> a 


A/ 

- 3 


^Ani n 

= Z.2D5Z. 


Ho. z& 

Sa^&i^eo ‘^Htr-Co 


oi 

— 0. 1 vets'! 


-pmz.'H 

- >3>ooH% 




16.27 An LP formulation for this problem can be set up as 


Maximize C = 0.1 5X + 0.0257+ 0.05Z 


{Minimize cost} 


subject to 


X + 7 + Z > 6 
X + 7 < 3 
X - 7 > 0 
Z - 0.57 > 0 


{Performance constraint} 

{Safety constraint} 

{X-7 Relationship constraint} 
{ 7-Z Relationship constraint} 


(b) An Excel spreadsheet can be set up to solve the problem as 
The Solver can be called and set up as 


The resulting solution is 



16.28 


x = — =>20000000 = 500,; 


J 7 T. r .A 


71 9 ( r o - r i ) 


r { =^^ -1.5915 xl0~ 5 r o 


TT 

4) = — =*2.5| 
JG 


f K ^ 
v 180 y 


500(5) 


77 x 10 J 


n 4 ,4 

2 r° r< ' 


/; .= 4 Y,; 4 - 2.8422x10 


-7 


r o = 29.76 mm 
r. =23.61 mm 


but r - r > 8 mm 


16.29 


r o = 29.76 mm, r = 21.76 mm 


Re (j, 
pF 


0.567 


2F 

h = — = .0779 

C D pV 2 b 


h = L = 0.567 cm 



A 

B 

C 

D 

E 

F 

1 


X 

Y 

Z 

Total 

Constraint 

2 

Amount 

1.5 

1.5 

3 



3 

Performance 

1 

1 

1 

6 

6 

4 

Safety 

1 

1 

0 

3 

3 

5 

X-Y 

1 

-1 

0 

0 

0 

6 

Z-Y 

0 

-0.5 

1 

2.25 

0 

7 

Cost 

0.15 

0.025 

0.05 

0.4125 



Set target cell: E7 


Equal to O max • min O value of 

0 

By changing cells 
B2:D2 



Subject to constraints: 


E3>F3 

E4<F4 

E5>F5 

E6>F6 


A B C D E F 






1 


X 

Y 

Z 

Total 

Constraint 

2 

Amount 

0 

0 

0 



3 

Performance 

1 

1 

1 

0 

6 

4 

Safety 

1 

1 

0 

0 

3 

5 

X-Y 

1 

-1 

0 

0 

0 

6 

Z-Y 

0 

-0.5 

1 

0 

0 

7 

Cost 

0.15 

0.025 

0.05 

0 




A 

B 

C 

D 

E 

F 

G 

1 


Z1 

Z2 

Z3 

W 

total 

constraint 

2 

amount 

4000 

3500 

0 

500 



3 

amount X 

1 

1 

0 

0 

7500 

7500 

4 

amount Y 

2.5 

0 

1 

0 

10000 

10000 

5 

amount W 

1 

-1 

-1 

-1 

0 

0 

6 

profit 

2500 

-50 

200 

-300 

9675000 



Set target cell: F6 


Equal to • max O min O value of 

By changing cells 

B2:E2 

Subject to constraints: 


B2>0 

C2>0 

F3<G3 

F4<G4 

F5=G5 


0 



A 

B 

C 

D 

E 

F 

G 

1 


Z1 

Z2 

Z3 

W 

total 

constraint 

2 

amount 

0 

0 

0 

0 



3 

amount X 

1 

1 

0 

0 

0 

7500 

4 

amount Y 

2.5 

0 

1 

0 

0 

10000 

5 

amount W 

1 

-1 

-1 

-1 

0 

0 

6 

profit 

2500 

-50 

200 

-300 

0 



Microsoft Excel 5.0c Sensitivity Report 
Worksheet: [PROB1605.XLS]Sheet3 
Report Created: 12/12/97 9:47 


Changing Cells 



Final 

Reduced 

Objective 

Allowable 

Allowable 

Cell 

Name 

Value 

Cost 

Coefficient 

Increase 

Decrease 

$B$2 

amount Product 1 

150 

0 

30 

0.833333333 

2.5 

$C$2 

amount Product 2 

125 

0 

30 

1.666666667 

1 

$D$2 

amount Product 3 

175 

0 

35 

35 

5 

Constraints 



Final 

Shadow 

Constraint 

Allowable 

Allowable 

Cell 

Name 

Value 

Price 

R.H. Side 

Increase 

Decrease 

$E$3 

material total 

3000 

0.625 

3000 

1E+30 

1E+30 

$E$4 

time total 

55 

12.5 

55 

1E+30 

1E+30 

$E$5 

storage total 

450 

26.25 

450 

1E+30 

1E+30 



A 

B 

C 

D 

E 

F 

1 


Product 1 

Product 2 

Product 3 

total 

constraint 

2 

amount 

150 

125 

175 



3 

material 

5 

4 

10 

3000 

3000 


4 

time 

0.05 

0.1 

0.2 

55 

55 

5 

storage 

1 

1 

1 

450 

450 

6 

profit 

30 

30 

35 

14375 



Set target cell: E6 

Equal to • max O min O value of 0 

By changing cells 

B2:D2 

Subject to constraints: 

E3<F3 

E4<F4 

E5<F5 



A 

B 

C 

D 

E 

F 

1 


Product 1 

Product 2 

Product 3 

total 

constraint 

2 

amount 

0 

0 

0 



3 

material 

5 

4 

10 

0 

3000 

4 

time 

0.05 

0.1 

0.2 

0 

55 

5 

storage 

1 

1 

1 

0 

450 

6 

profit 

30 

30 

35 

0 



Basis 

P 

xl 

x2 

x3 

SI 

S2 

S3 

Solution 

Intercept 

P 

1 

-30 

-30 

-35 

0 

0 

0 

0 


SI 

0 

5 

4 

10 

1 

0 

0 

3000 

300 

S2 

0 

0.05 

0.1 

0.2 

0 

1 

0 

55 

275 

S3 

0 

1 

1 

1 

0 

0 

1 

450 

450 


Basis 

P 

xl 

x2 

x3 

SI 

S2 

S3 

Solution 

Intercept 

P 

1 

-21.25 

-12.5 

0 

0 

175 

0 

9625 


SI 

0 

2.5 

-1 

0 

1 

-50 

0 

250 

100 

x3 

0 

0.25 

0.5 

1 

0 

5 

0 

275 

1100 

S3 

0 

0.75 

0.5 

0 

0 

-5 

1 

175 

233.3333 


Basis 

P 

xl 

x2 

x3 

SI 

S2 

S3 

Solution 

Intercept 

P 

1 

0 

-21 

0 

8.5 

-250 

0 

11750 


xl 

0 

1 

-0.4 

0 

0.4 

-20 

0 

100 

-250 

x3 

0 

0 

0.6 

1 

-0.1 

10 

0 

250 

416.6667 

S3 

0 

0 

0.8 

0 

-0.3 

10 

1 

100 

125 


Basis 

P 

xl 

x2 

x3 

SI 

S2 

S3 

Solution 

P 

1 

0 

0 

0 

0.625 

12.5 

26.25 

14375 

xl 

0 

1 

0 

0 

0.25 

-15 

0.5 

150 

x3 

0 

0 

0 

1 

0.125 

2.5 

-0.75 

175 

x2 

0 

0 

1 

0 

-0.375 

12.5 

1.25 

125 
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A VBA code to do this with the computer is 



Sub Splines ( ) 

Dim i As Integer, n As Integer 

Dim x(100) As Single, y(100) As Single, xu As Single, yu As Single 

Dim xint(lOO) As Single 

Dim dy As Single, d2y As Single 

Sheets (" Sheet 1" ) .Select 

Range ("a5") .Select 

n = ActiveCell . Row 

Selection . End (xlDown) .Select 

n = ActiveCell . Row - n 

Range ("a5") .Select 

For i = 0 To n 

x(i) = ActiveCell .Value 
ActiveCell .Offset (0, 1). Select 
y(i) = ActiveCell .Value 
ActiveCell .Offset (1, -1). Select 
Next i 

Range ("d5") .Select 
nint = ActiveCell . Row 
Selection . End (xlDown) .Select 
nint = ActiveCell . Row - nint 
Range ("d5") .Select 
For i = 0 To nint 

xint(i) = ActiveCell .Value 
ActiveCell .Offset (1, 0). Select 
Next i 

Range ("e5") .Select 
For i = 0 To nint 

Call Spline (x(), y(), n, xint(i), yu, dy, d2y) 

ActiveCell .Value = yu 
ActiveCell .Offset (0, 1). Select 
ActiveCell .Value = dy 
ActiveCell .Offset (0, 1). Select 
ActiveCell .Value = d2y 
ActiveCell .Offset (1, -2). Select 
Next i 

Range ("a5") .Select 
End Sub 

Sub Spline (x, y, n, xu, yu, dy, d2y) 

Dim e(10) As Single, f ( 1 0 ) As Single, g < 1 0 ) As Single, r(10) As Single, d2x(10) As Single 
Call Tridiag(x, y, n, e, f, g, r) 

Call Decomp (e(), f(), g(), n - 1) 

Call Substit(e(), f(), g(), r(), n - 1, d2x()) 

Call Interpol (x, y, n, d2x(), xu, yu, dy, d2y) 

End Sub 

Sub Tridiag(x, y, n, e, f, g, r) 

Dim i As Integer 
f (1) = 2 * (x (2) - x ( 0 ) ) 
g (l) = x(2) - x(i) 

r (1) = 6 / (x (2) - x (1) ) * (y (2) - y (1) ) 
r (1) = r ( 1 ) + 6 / (x (1) - x (0) ) * (y(0) - y (1) ) 

For i = 2 To n - 2 

e (i) = x (i) - x (i - 1) 
f (1) = 2 * (x(i + 1) - x(i - 1) ) 

g(i) = x (i t 1) - x (i) 

r(i) = 6 / (x (i t 1) - x < 1 ) ) * (y(i t 1) - y ( 1 ) ) 

r(i) = r(i) + 6 / ( x ( i ) - x(i - 1)) * (y(i - 1) - y(i>) 

Next i 

e (n - 1) = x(n - 1) - x(n - 2) 

f (n - 1) = 2 * (x(n) - x(n - 2)) 

r(n - 1) = 6 / (x (n) - x(n - 1)) * (y(n) - y(n - 1)) 

r (n - 1) = r (n - 1) t 6 / (x(n - 1) - x(n - 2)) * (y(n - 2) - y(n - 1)) 

End Sub 

Sub Interpol (x, y, n, d2x, xu, yu, dy, d2y) 

Dim i As Integer, flag As Integer 

Dim cl As Single, c2 As Single, c3 As Single, c4 As Single 
Dim tl As Single, t2 As Single, t3 As Single, t4 As Single 
flag = 0 
i = 1 
Do 

If xu >= x(i - 1) And xu <= x(i) Then 



cl = d2x(i - 1) / 6 / (x(i) - x(i - 1)) 

c2 = d2x(i) / 6 / (x(i) - x(i - 1)) 

c3 = y(i - 1) / (x(i) - x(i - 1)) - d2x(i - 1) * (x(i) - x(i - 1)) / 6 

c4 = y (i) / (x (i) - x(i - 1)) - d2x(i) * (x(i) - x(i - 1)) / 6 

tl = cl * (x(i) - xu) A 3 

t2 = c2 * (xu - x(i -1)) A 3 

t3 = c3 * (x(i) - xu) 

t4 = c4 * (xu - x(i - 1)) 

yu = tl + t2 + t3 + t4 

tl = -3 * cl * (x(i) - xu) A 2 

t2 = 3 * c2 * (xu - x(i -1)) A 2 

t3 = -c3 

t4 = c4 

dy = tl + t2 + t3 + t4 
tl = 6 * cl * (x(i) - xu) 

t2 = 6 * c2 * (xu - x(i - 1)) 

d2y = ti + t2 
flag = 1 
Else 

i = i + 1 
End If 

If i = n + 1 Or flag = 1 Then Exit Do 
Loop 

If flag = 0 Then 

MsgBox "outside range" 

End 
End If 
End Sub 

Sub Decomp (e, f, g, n) 

Dim k As Integer 
For k = 2 To n 

e (k) = e (k) / f (k - 1) 
f (k) = f (k) - e(k) * g(k - 1) 

Next k 
End Sub 

Sub Substit(e, f, g, r, n, x) 

Dim k As Integer 
For k = 2 To n 

r (k) = r (k) - e (k) * r (k - 1) 

Next k 

x (n) = r (n) / f(n) 

For k = n - 1 To 1 Step -1 

x ( k ) = (r(k) - g (k) * x(k + 1)) / f(k) 

Next k 
End Sub 
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20.1 1 The best fit equation can be determined by nonlinear regression as 


98.84[F] 
0.8766 + [F] 



Disregarding the point (0, 0), The r 2 can be computed as 

S, = 9902.274 
& = 23.36405 

9902 274-23 364 
r 2 = = 0.9976 

9902.274 

20.12 The Excel Solver can be used to develop a nonlinear regression to fit the parameters. The 
result (along with a plot of -dA/dt calculated with the model versus the data estimates) are 
shown below. Note that the 1 : 1 line is also displayed on the plot. 
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20.13 The Excel Solver can be used to develop a nonlinear regression to fit the parameters. The 
result (along with a plot of the model versus the data estimates) are shown below. Note that 
the 1 : 1 line is also displayed on the plot. 
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0.984 0.986 0.988 0.99 0.992 
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20.14 The standard errors can be computed via Eq. 17.9 



Thus, Model C seems best because its standard error is lower. 

20.15 A plot of the natural log of cells versus time indicates two straight lines with a sharp break 
at 2. Trendline can be used to fit each range separately with the exponential model as 
shown in the second plot. 




20.16 (This problem was designed by Theresa Good of Texas A&M.) The problem can be solved 
with Microsoft Excel: 
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= = (1 NTE R C E PT(C5 : C 1 2 , A5 : A1 2)/K) A (1 /a) 
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y = 29.354x + 0.7017 
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0.04 
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R 2 = 0.9983 
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Plot the data using Excel: 



A = 0.4149W 0 37 " with R-squared = 0.971 1. Therefore, a = 0.4149 and b = 0.3799. The 
predicted surface area for a 95 kg human is approximately: A = 0.4149 (95) 03799 = 2.34 m 2 


20.18 The Excel Trend Line tool can be used to fit a power law to the data: 



The logarithmic slope relating the mass and metabolism is 0.75. 


20.19 


The solution consists of three separate Matlab programs. 

1. Polynomial Regression 

g= [105 126 215 315 402]; 

St=[3.44 4.12 7.02 10.21 13.01]; 
gf =0 : 1:450; 


%Mean and St 
stmean=mean (st) ; 

St=sum( (st-stmean) . * (st-stmean) ); 


% Linear Fit 
cl=polyfit (g, st, 1) ; 
stl=polyval (cl,g) ; 

Srl=sum( (st-stl) . * (st-stl) ) ; 
r=sqrt ( (St-Srl) /St) ; 
stfl=polyval (cl,gf) ; 

plot (g,st, ' + ' ,gf,stfl) ; grid; axis ( [0 450 0 14]); 
title ('Shear Rate vs. Shear Stress for 40% Hot Blood') 
xlabel (' Shear Rate - 1/sec ') ;ylabel {' Shear Stress - N/m > ‘2') 

fprintf ( 'Correlation Coefficient = %f\n' , r) 
fprintf ( 'Newtonian slope or Viscosity = %f\n', cl(l)) 

K = sqrt (cl (1) ) ; 

fprintf (' Consistency index K = %f', K) 




2 . %Polynomial Regression 


g=[105 126 215 315 402]; 

st= [3 . 44 4.12 7.02 10.21 13.01]; 

gf=0 : 1:450; 


%Mean and St 
stmean=mean (st) ; 

St=sum( (st-stmean) . * (st-stmean) ); 


% Linear Fit 
cl=polyfit (g, st, 1) ; 
stl=polyval (cl,g) ; 

Srl=sum( (st-stl) . * (st-stl) ) ; 
r=sqrt ( (St-Srl) /St) ; 
stfl=polyval (cl,gf) ; 

plot(g,st, '+' ,gf ,stfl) ; grid; axis([0 450 0 14]); 
title ('Shear Rate vs. Shear Stress for 4 0% Hot Blood 1 ) 
xlabel ( 'Shear Rate - 1/sec ') ;ylabel (' Shear Stress - N/m*2 ' ) 
fprintf (' Correlation Coefficient = %f\n' ( r) 


fprintf ( 'Newtonian slope or Viscosity = %f\n', cl(l)) 

K = sqrt (cl (1) ) ; 

fprintf (' Consistency index K = %f', K) 

3 . % Casson Equation curve fit. 

g= [ . 91 3.3 4.1 6.3 9.6 23 36 49 65 105 126 215 315 402]; 

St= [ . 059 .15 .19 .27 .39 .87 1.33 1.65 2.11 3.44 4.12 7.02 10.21 

13.01]; 

gsq=sqrt (g) ; 

stsq=sqrt (st) ; 


% Casson Equation segment overall curve 
gasqc=0:l:6; gasqcd=6 : 1 : 12 ; 
tysq = 0.065818; Kc = 0.180922; 
stsqc=tysq+Kc . *gasqc; 
stsqcd=tysq+Kc . *gasqcd 

% Newtonian segement 
gasqn=6 : 1 : 15 ;gasqnd=0 : 1 : 10; 

K=0. 179474 

stsqn=K*gasqn; 

stsqnd=K*gasqnd; 

plot (gasqc, stsqc, gasqcd, stsqcd, ' - - ' , gasqn, stsqn, gasqnd, stsqnd, ' -- 
' , gsq, stsq, '+') ; 
axis ( [0 15 0 2.8] ) ; 

title (' Casson Equation for 40% Hct Blood'); 
xlabel (' Square Root of Shear Rate - (1/sec) '*'0 . 5 ' ) ; 
ylabel (' Square Root of Shear Stress - (N/m^2) A 0 . 5 ' ) ; 
grid 



Final Results: 

Correlation Coefficient = 0.999925 
Casson slope Kc = 0.180922 
SqRt Yield Stress, y-intrcept = 0.065818 
Yield Stress = 0.004332 

Correlation Coefficient = 0.999993 
Newtonian slope or Viscosity = 0.032211 
Consistency index K = 0.179474 


Casson Equation for 40% Hot Blood 



20.20 





DsDe - N/m A 2 


% Raw data irput 

s=[87.8 96.6 176 263 351 571 834 1229 1624 2107 2678 3380 4258]*le+3 
©=[153 204 255 306 357 408 459 510 561 612 663 714 765]*le-3; 
de=51e-3; dte=2*de; 

% Finite Differences 

dsde(l)= (-s(3)+4*s(2)-3*s(l))/dde; % forward difference 

far i=2:12 

dsde(i) = (s(i+l)-s(i-l))/dde; % centered difference 

end 

dsde(13) = (3*s(13)-4*s(12)+s(ll))/dde; % backward difference 

plot(s,dsde, '-Ss.dsde, '+') 

title ( ' Soft Tissue ESqperimental Results ' ) 

y label ( 'stress - N/taT2 '); ylabel('DsDe - N/m72'); grid 


x . q? Soft Tissue Experimental Results 




%Raw data irput 

s=[87.8 96.6 176 263 351 571 834 1229 1624 2107 2678 3380 4258]*le+3; 
e=[153 204 255 306 357 408 459 510 561 612 663 714 765]*le-3; 

%Fegressi.cn aralysis 
%Elimination of early data 

icbc=5; % idx=starting point far <teta exclusion (points with subecribt above idx will be included in s) 
% With this data the range idx can be idx=3 to idx=8 
rp= length (s) -idx; 
for i=l:np 

sr(i)=s(idx+i) ; %sr = regression values for s 
end 

%Gcnstants 
de=51e-3; dte=2*de; 

% Finite difference 

dsder(l)= (-sr(3)+4*sr(2)-3*sr(l))/dde; % forward difference 

for i=2:ip-l 

dsder(i)=(sr(i+l)-sr(i-l))/dde; % centered differawe 

aid 

dsder (rp ) = ( 3 *sr (rp) -4*sr ( rp-1 ) +sr (rp-2 ) ) /dde ; % backward difference 

SLinaar Fit 

cl=polyfit (sr, dsder, 1) ; 
a=cl(l) ; Bo=cl(2) ; 
sp=0:le6:5e6; 
dsdel=polyval (cl,sp) ; 
plot (sp,dsdel,sr, dsder, '*') 
title ('Soft Tissue E>q?erimsntal Results') 
xlabelC stress - N/rn^ '); ylabelCDsDe - N/to'2'); 
axis([0 5e6 0 20e6]); grid; pause 

% Stress-Strain Curve Plot 
% Plot the analytic expression far s vs e 
% Using Bo and a 

qp=0: .005:0.8; % ep=curve plot value of e 

sp=(Eo/a)*(esq?(a*ep)-l); % sp=curve plot value of s 

plot(ep,sp,e,s, '*') 

title (' Soft Tissue Experimental Results'); 
xlabelC Strain - m/m' ) ; y label ( ' Stress - N/HC2 ' ) 
grid; gtext('E(0) and a'); pause 
% Using sStar and eStar 
sStar=s(10); efitar=e(10); 
sbar=sStar/ (esq?(a*eStar) -1) ; 
sp2=sbar * (exp (a*ep) -1) ; 
plat(q>,sp2,e,s, '*') 

titleC Soft Tissue Experimaital Results'); 
xlabelC Strain - m/m' ) ; y label ( ' Stress - N/mf'2') 
grid; gtextCsbar and a'); 



Soft Tissue Experimental Results 



x 10 « Soft Tissue Experimental Results 



20.21 The problem is set up as the following Excel Solver application. Notice that we have 
assumed that the model consists of a constant plus two bell-shaped curves: 


f(x) = c +- i 


, -kfa-aj , -ki(x-a 2 ) 


- + - 


The resulting solution is 




G4 


H = =SUM(G7:G33) 



u 


Thus, the retina thickness is estimated as 0.3 1 - 0.25 = 0.06. 
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20.29 Clearly the linear model is not adequate. The second model can be fit with the Excel 
Solver: 



El 7 H =| =SUM(E7:E15) 



Notice that we have reexpressed the initial rates by multiplying them by lxlO 5 . We did this 
so that the sum of the squares of the residuals would not be miniscule. Sometimes this will 
lead the Solver to conclude that it is at the minimum, even though the fit is poor. The 
solution is: 


El 8 z] =1=(C17-E17)/C17 
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Although the fit might appear to be OK, it is biased in that it underestimates the low values 
and overestimates the high ones. The poorness of the fit is really obvious if we display the 
results as a log-log plot: 



Notice that this view illustrates that the model actually overpredicts the very lowest values. 


The third and fourth models provide a means to rectify this problem. Because they raise [5] 
to powers, they have more degrees of freedom to follow the underlying pattern of the data. 
For example, the third model gives: 



Finally, the cubic model results in a perfect fit: 



Thus, the best fit is 
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20.49 This problem was solved using an Excel spreadsheet. 



Seriesl 

— Power (Seriesl ) 


20.50 This problem was solved using an Excel spreadsheet. 
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20.51 This problem was solved using an Excel spreadsheet. 
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13.13 Because of multiple local minima and maxima, there is no really simple means to test 

whether a single maximum occurs within an interval without actually perfonning a search. 
However, if we assume that the function has one maximum and no minima within the 
interval, a check can be included. Here is a VBA program to implement the Golden 
section search algorithm for maximization and solve Example 13.1. 

Option Explicit 

Sub GoldMax() 

Dim ier As Integer 

Dim xlow As Double, xhigh As Double 
Dim xopt As Double, fopt As Double 
xlow = 0 
xhigh = 4 

Call GoldMx (xlow, xhigh, xopt, fopt, ier) 

If ier = 0 Then 

MsgBox "xopt = " & xopt 
MsgBox "f(xopt) = " & fopt 
Else 

MsgBox "Does not appear to be maximum in [xl, xu] " 

End If 
End Sub 

Sub GoldMx (xlow, xhigh, xopt, fopt, ier) 

Dim iter As Integer, maxit As Integer, ea As Double, es As Double 
Dim xL As Double, xU As Double, d As Double, xl As Double 
Dim x2 As Double, fl As Double, f2 As Double 
Const R As Double = (5 ^ 0.5 — 1 ) / 2 

ier = 0 
maxit = 50 
es = 0.001 
xL = xlow 
xU = xhigh 
iter = 1 

d = R * (xU - xL) 
xl = xL + d 
x2 = xU - d 
fl = f ( x 1 ) 
f 2 = f(x2) 

If fl > f2 Then 
xopt = xl 
fopt = fl 
Else 

xopt = x2 
fopt = f2 
End If 

If fopt > f (xL) And fopt > f (xU) Then 
Do 


d = R 

* d 


If fl 

> f2 Then 

xL = 

x2 


x2 = 

xl 


xl = 

xL + 

d 

f 2 = 

fl 


fl = 

f (xl) 


Else 



xU = 

xl 


xl = 

x2 


x2 = 

xU - 

d 

fl = 

f 2 


f 2 = 

f (x2) 


End If 



iter = 

iter 

+ 1 


If fl > f2 Then 



xopt = xl 
fopt = fl 
Else 

xopt = x2 
fopt = f2 
End If 

If xopt <> 0 Then ea = (1 - R) * Abs ( (xU - xL) / xopt) * 100 
If ea <= es Or iter >= maxit Then Exit Do 
Loop 
Else 

ier = 1 
End If 

End Sub 

Function f (x) 

f = - (2 * Sin (x) - x A 2 / 10) 

End Function 

13.14 The easiest way to set up a maximization algorithm so that it can do minimization is the 
realize that minimizing a function is the same as maximizing its negative. Therefore, the 
following algorithm minimizes or maximizes depending on the value of a user input 
variable, ind, where ind = -1 and 1 correspond to minimization and maximization, 
respectively. 

Option Explicit 
Sub GoldMinMax ( ) 

Dim ind As Integer 'Minimization (ind = -1) ; Maximization (ind = 1) 

Dim xlow As Double, xhigh As Double 

Dim xopt As Double, fopt As Double 

xlow = 0 

xhigh = 4 

Call GoldMnMx (xlow, xhigh, -1, xopt, fopt) 

MsgBox "xopt = " & xopt 
MsgBox "f(xopt) = " & fopt 
End Sub 

Sub GoldMnMx (xlow, xhigh, ind, xopt, fopt) 

Dim iter As Integer, maxit As Integer, ea As Double, es As Double 
Dim xL As Double, xU As Double, d As Double, xl As Double 
Dim x2 As Double, fl As Double, f2 As Double 
Const R As Double = (5 ^ 0.5 — 1 ) / 2 

maxit = 50 
es = 0.001 
xL = xlow 
xU = xhigh 
iter = 1 

d = R * (xU - xL) 
xl = xL + d 
x2 = xU - d 
fl = f (ind, xl) 
f 2 = f (ind, x2 ) 

If fl > f2 Then 
xopt = xl 
fopt = fl 
Else 

xopt = x2 
fopt = f2 
End If 

Do 

d = R * d 
If fl > f2 Then 



xL = 

x2 


x2 = 

xl 


xl = 

xL + d 


f 2 = 

fl 


fl = 

f (ind. 

x: 

Else 

xU = 

xl 


xl = 

x2 


x2 = 

xU - d 


fl = 

f 2 


f 2 = 

f (ind. 

x; 

End If 

iter = 

iter + 

i 

If fl > f2 Then 

xopt 

= xl 


fopt 

= fl 


Else 

xopt 

= x2 


fopt 

= f 2 



End If 


If xopt <> 0 Then ea = (1 - R) * Abs ( (xU - xL) / xopt) * 100 
If ea <= es Or iter >= maxit Then Exit Do 
Loop 

fopt = ind * fopt 
End Sub 

Function f (ind, x) 

f = ind * (1.1333 * x A 2 - 6.2667 * x + 1) 

End Function 

13.15 Because of multiple local minima and maxima, there is no really simple means to test 

whether a single maximum occurs within an interval without actually perfonning a search. 
However, if we assume that the function has one maximum and no minima within the 
interval, a check can be included. Here is a VBA program to implement the Quadratic 
Interpolation algorithm for maximization and solve Example 13.2. 

Option Explicit 

Sub QuadMax ( ) 

Dim ier As Integer 

Dim xlow As Double, xhigh As Double 
Dim xopt As Double, fopt As Double 
xlow = 0 
xhigh = 4 

Call QuadMx (xlow, xhigh, xopt, fopt, ier) 

If ier = 0 Then 

MsgBox "xopt = " & xopt 
MsgBox "f(xopt) = " & fopt 
Else 

MsgBox "Does not appear to be maximum in [xl, xu] " 

End If 
End Sub 

Sub QuadMx (xlow, xhigh, xopt, fopt, ier) 

Dim iter As Integer, maxit As Integer, ea As Double, es As Double 
Dim xO As Double, xl As Double, x2 As Double 
Dim fO As Double, fl As Double, f2 As Double 
Dim xoptOld As Double 

ier = 0 

maxit = 50 

es = 0.01 

xO = xlow 

x2 = xhigh 

xl = (xO + x2) / 2 



fO = f (xO ) 
fl = f ( x 1 ) 
f 2 = f(x2) 

If fl > fO Or fl > f 2 Then 
xoptOld = xl 
Do 

xopt = fO * (xl A 2 - x2 A 2) + fl * (x2 A 2 - xO A 2) + f2 * (xO A 2 - xl A 2) 
xopt = xopt / (2*f 0 * (xl - x2) + 2*f 1 * (x2 - xO) + 2*f2 * (xO - xl) ) 
fopt = f(xopt) 
iter = iter + 1 
If xopt > xl Then 


xO = 

xl 

fO = 

fl 

xl = 

xopt 

fl = 

fopt 

Else 


x2 = 

xl 

f 2 = 

fl 

xl = 

xopt 

fl = 

fopt 

End If 



If xopt <> 0 Then ea = Abs ( (xopt - xoptOld) / xopt) * 100 
xoptOld = xopt 

If ea <= es Or iter >= maxit Then Exit Do 
Loop 
Else 

ier = 1 
End If 
End Sub 

Function f (x) 

f = - (2 * Sin (x) - x A 2 / 10) 

End Function 

13.16 Here is a VBA program to implement the Newton-Raphson method for maximization. 

Option Explicit 

Sub NRMax ( ) 

Dim xguess As Double 

Dim xopt As Double, fopt As Double 

xguess = 2.5 

Call NRMx (xguess, xopt, fopt) 

MsgBox "xopt = " & xopt 
MsgBox "f(xopt) = " & fopt 
End Sub 

Sub NRMx (xguess, xopt, fopt) 

Dim iter As Integer, maxit As Integer, ea As Double, es As Double 
Dim xO As Double, xl As Double, x2 As Double 
Dim fO As Double, fl As Double, f2 As Double 
Dim xoptOld As Double 

maxit = 50 
es = 0.01 
Do 

xopt = xguess - df (xguess) / d2f (xguess) 
fopt = f (xopt) 

If xopt <> 0 Then ea = Abs ( (xopt - xguess) / xopt) * 100 
xguess = xopt 

If ea <= es Or iter >= maxit Then Exit Do 
Loop 
End Sub 

Function f (x) 

f = - (2 * Sin (x) - x A 2 / 10) 



End Function 


Function df (x) 

df = 2 * Cos (x) - x / 5 

End Function 

Function d2f (x) 

d2f = -2 * Sin (x) -1/5 

End Function 


13.17 Here is a VBA program to implement the Newton-Raphson method for maximization. 


d x = 



1[4— 2) = 1.23606 


V J 


X| = 2 + 1/| = 3.23606 
x 2 = 4 - t/j = 2.76394 

fix j) = -4.69808 
/(x 2 ) = - 5.55333 
/ C*2 ) < f( x 1 ) => 2Ci A X V 


d 2 — 


f 


V 


a/5-1 

2 


\ 

(3.23606 -2) = 0.763927 

/ 


Xj = 2 + 1/ 2 = 2.7639 
x 2 =3.23606-^, =2.472133 
/( Xl ) = -5.55331 
/(x 2 ) = -4.82656 
/ (x, ) < /(x 2 ) => x 2 is new x z 


- 


/5 — 1 


3.23606-2.472133 =0.4721 


xj =2.472133 + ^ =2.9442 
x 2 = 3.23606 -</ 3 =2.7639 
/(x 1 ) = -4.9353 
/(x 2 ) = -5.55331 
/(* 2 )</Oi)=>*i is new % 


= 


/ 


V 


a/5-1 

2 


A 

(2.9442 -2.472133) = 0.29175 

/ 


xj =2.472133 + ^4 =2.7638 


x 2 = 2.9442 -d 4 = 2.6524 
/(xj) = -5.55331 
/(x 2 ) = -5.4082 

at time t = 2.76 , minimum pressure is -5.55331 
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14.8 Errata: p. 357; The initial value of the variable maxf must be set to some ridiculously 
small value before the iterations are begun. Add the following line to the beginning of 
the VBA code: 

maxf = -999E9 

The following code implements the random search algorithm in VBA: 

Option Explicit 
Sub RandSearch() 

Dim n As Long 

Dim xmin As Single, xraax As Single, ymin As Single, ymax As Single 
Dim maxf As Single, maxx As Single, maxy As Single 

xmin = -2 
xraax = 2 
ymin = -2 
ymax = 2 

n = InputBox ( "n=" ) 

Call RndSrch (n, xmin, xmax, ymin, ymax, maxy, maxx, maxf) 

MsgBox maxf 
MsgBox maxx 
MsgBox maxy 

End Sub 

Sub RndSrch (n, xmin, xmax, ymin, ymax, maxy, maxx, maxf) 

Dim j As Long 

Dim x As Single, y As Single, fn As Single 
maxf = -999E9 
For j = 1 To n 

x = xmin + (xmax - xmin) * Rnd 

y = ymin + (ymax - ymin) * Rnd 

fn = f (x, y) 

If fn > maxf Then 
maxf = fn 

maxx = x 

maxy = y 

End If 
Next j 
End Sub 

Function f (x, y) 

f = 3.5 *x + 2*y + x A 2-x A 4-2*x*y-y A 2 
End Function 


14.9 The following code implements the grid search algorithm in VBA: 

Option Explicit 
Sub GridSearch() 

Dim nx As Long, ny As Long 

Dim xmin As Single, xmax As Single, ymin As Single, ymax As Single 
Dim maxf As Single, maxx As Single, maxy As Single 

xmin = -2 
xmax = 2 
ymin = -2 
ymax = 2 
nx = 1000 
ny = 1000 



Call GridSrch (nx, ny, xmin, xmax, ymin, ymax, maxy, maxx, maxf) 

MsgBox maxf 
MsgBox maxx 
MsgBox maxy 

End Sub 

Sub GridSrch (nx, ny, xmin, xmax, ymin, ymax, maxy, maxx, maxf) 
Dim i As Long, j As Long 

Dim x As Single, y As Single, fn As Single 
Dim xinc As Single, yinc As Single 
xinc = (xmax - xmin) / nx 

yinc = (ymax - ymin) / ny 

maxf = -999000000000# 
x = xmin 
For i = 0 To nx 
y = ymin 
For j = 0 To ny 
fn = f (x, y) 

If fn > maxf Then 
maxf = fn 

maxx = x 

maxy = y 

End If 

y = y + yinc 
Next j 

x = x + xinc 
Next i 
End Sub 

Function f (x, y) 

f = y- x- 2*x A 2-2*x*y-y A 2 
End Function 


.10 


/ ( x , y) = 5x 2 y-Sy 2 - lx 1 

— = 10xy-14x => 10(2)(4) -14(4) = 24 
dx 


— = 5x 2 - I6y =>5(4) 2 -16(2) = 48 
dy 


V f = 24 i + 48 j 


f 


3 / , 3 / , 

x ° + 1r h >y 0 + zh 
ox dy 


= /(4 + 24/7,2 + 48/7) 


= 5(4 + 24A) 2 (2 + 48/;) - 8(2 + 48/;) 2 - 7(4 + 24h) 2 


g(x) = 138240/? 3 + 29376 h 2 + 2880/7 + 16 



14.11 


/ (x, y) = 2x 3 y 1 - 6 yx + x 2 + 4 v 

C) f = 6 x 2 y 2 - 6 y + 2x => 6(1)(1) - 6(1) + 2(1) = 2 
dx 

= 4x 3 j - 6 v + 4 => 4(1)(1) - 6(1) + 4 = 2 
ox 

V/ = 2/ + 2 j 

f(x 0 + h ,y a + If- h) = /(I + 2h , 1 + 2/7) 

2x 2j; 

= 2(1 + 2/z) 3 (1 + 2 h) 2 - 6(1 + 2/z)(l + 2/z) + (1 + 2/z) 2 + 4(1 + 2/z) 
g(x) = 64 h 5 + 160 h 4 + 160/z 3 + 60/z 2 + 8/z + 1 



CHAPTER 15 


15.1 (Note: Although it is not really clear from the problem statement, it should be assumed that each 
unit of product is equivalent to a kg.) 

(a) Define x„ = amount of product A produced, and xi, = amount of product B produced. 

The objective function is to maximize profit, 

P = 45x a + 30xj 


Subject to the following constraints 


20x a + 5x h < 10000 
0.05x a +0.15x & < 40 
x a + x h < 550 


{raw materials} 
{production time} 
{storage} 
{positivity} 


(b) To solve graphically, the constraints can be reformulated as the following straight lines 

x b = 2000- 4x a {raw materials} 

x b = 266.667 -0.3333x a {production time} 

X;,=550-x a {storage} 

The objective function can be reformulated as 

x b = (1/ 30)P- 1.5x a 


The constraint lines can be plotted on the Xb-x a plane to define the feasible space. Then the 
objective function line can be superimposed for various values of P until it reaches the 
boundary. The result is P= 23700 with x a = 483 and xz , = 67. Notice also that material and 
storage are the binding constraints and that there is some slack in the time constraint. 




(c) The simplex tableau for the problem can be set up and solved as 



Basis 

P 

xa 

xb 

SI 

S2 

S3 

Solution 

Intercept 


P 

1 

-45 

-30 

0 

0 

0 

0 


material 

SI 

0 

20 

5 

1 

0 

0 

10000 

500 

time 

S2 

0 

0.05 

0.15 

0 

1 

0 

40 

800 

storage 

S3 

0 

1 

1 

0 

0 

1 

550 

550 



Basis 

p 

xa 

xb 

SI 

S2 

S3 

Solution 

Intercept 


P 

1 

0 

-18.75 

2.25 

0 

0 

22500 


xa 

xa 

0 

1 

0.25 

0.05 

0 

0 

500 

2000 

time 

S2 

0 

0 

0.1375 

-0 

1 

0 

15 

109.0909 

storage 

S3 

0 

0 

0.75 

-0.05 

0 

1 

50 

66.66667 



Basis 

P 

xa 

xb 

SI 

S2 

S3 

Solution Intercept 


P 

1 

0 

0 

1 

0 

25 

23750 

xa 

xa 

0 

1 

0 

0.067 

0 

-0.333 

483.33333 

time 

S2 

0 

0 

0 

0.007 

1 

-0.183 

5.8333333 

xb 

xb 

0 

0 

1 

-0.07 

0 

1.333 

66.666667 


(cl) An Excel spreadsheet can be set up to solve the problem as 



A 

B 

C 

D 

E 

1 


xA 

xB 

total 

constraint 

2 

amount 

0 

0 



3 

time 

0.05 

0.15 

0 

40 

4 

storage 

1 

1 

0 

550 

5 

raw material 

20 

5 

0 

10000 

6 

profit 

45 

30 

0 



The Solver can be called and set up as 

Set target cell: D6 

Equal to • max O min O value of 


0 


By changing cells 
B2:C2 

Subject to constraints: 

D3<E3 

D4<E4 

D5<E5 

The resulting solution is 



A 

B 

C 

D 

E 

1 


xA 

xB 

total 

constraint 

2 

amount 

483.3333 

66.66667 



3 

time 

0.05 

0.15 

34.16667 

40 

4 

storage 

1 

1 

550 

550 

5 

raw material 

20 

5 

10000 

10000 

6 

profit 

45 

30 

23750 



In addition, a sensitivity report can be generated as 


Microsoft Excel 5.0c Sensitivity Report 
Worksheet: [PROB1501.XLS]Sheet2 
Report Created: 12/8/97 17:06 


Changing Cells 



Final 

Reduced 

Objective 

Allowable 

Allowable 

Cell 

Name 

Value 

Cost 


Coefficient 

Increase 

Decrease 

$B$2 

amount xA 

483.3333333 


0 

45 

75 

15 

$C$2 

amount xB 

66.66666667 


0 

30 

15 

18.75 

Constraints 



Final 

Shadow 

Constraint 

Allowable 

Allowable 

Cell 

Name 

Value 

Price 


R.H. Side 

Increase 

Decrease 

$D$3 

time 

34.16666667 


0 

40 

1E+30 

5.833333333 

$D$4 

storage 

550 


25 

550 

31.81818182 

1E+30 

$D$5 

raw material 

10000 


1 

10000 

1E+30 

875 


(e) The high shadow price for storage from the sensitivity analysis from (cl) suggests that 
increasing storage will result in the best increase in profit. 

15.2 ( a ) The total LP formulation is given by 


Maximize Z = I 5 Ox, + 175x 2 + 250x 3 {Maximize profit} 


subject to 

7xj + 1 lx-, + 15x 3 < 154 
lO.Xj + 8x 2 + 12x 3 < 80 
x, <9 
x 2 < 6 
x 2 <5 


{Material constraint} 
{Time constraint} 

{“Regular” storage constraint} 
{“Premium” storage constraint} 
{“Supreme” storage constraint} 


{Positivity constraints} 


X j 2 X 2 5 X ^ 


>o 


(b) The simplex tableau for the problem can be set up and solved as 


Basis P 

xl 

x2 

x3 

SI 

S2 

S3 

S4 

S5 


Solution Intercept 

P 

1 

-150 

-175 

-250 

0 

0 

0 

0 

0 

0 

SI 

0 

7 

11 

15 

1 

0 

0 

0 

0 

154 10.2667 

S2 

0 

10 

8 

12 

0 

1 

0 

0 

0 

80 6.66667 

S3 

0 

1 

0 

0 

0 

0 

1 

0 

0 

9 oo 

S4 

0 

0 

1 

0 

0 

0 

0 

1 

0 

6 oo 

S5 

0 

0 

0 

1 

0 

0 

0 

0 

1 

5 5 


Basis P 

xl 

x2 

x3 

SI 

S2 

S3 

S4 


S5 

Solution Intercept 

P 

1 

-150 

-175 

0 

0 

0 

0 

0 

250 

1250 

SI 

0 

7 

11 

0 

1 

0 

0 

0 

-15 

79 7.18182 

S2 

0 

10 

8 

0 

0 

1 

0 

0 

-12 

20 2.5 

S3 

0 

1 

0 

0 

0 

0 

1 

0 

0 

9 oo 

S4 

0 

0 

1 

0 

0 

0 

0 

1 

0 

6 6 

x3 

0 

0 

0 

1 

0 

0 

0 

0 

1 

5 oo 


Basis P 

xl 

x2 

x3 

SI 


S2 S3 

S4 


S5 

Solution 

Intercept 

P 

1 

68.75 

0 

0 

0 

21.88 

0 

0 

-12.5 

1687.5 


SI 

0 

-6.75 

0 

0 

1 

-1.375 

0 

0 

1.5 

51.5 

34.3333 

x2 

0 

1.25 

1 

0 

0 

0.125 

0 

0 

-1.5 

2.5 

-1.66667 

S3 

0 

1 

0 

0 

0 

0 

1 

0 

0 

9 

oo 

S4 

0 

-1.25 

0 

0 

0 

-0.125 

0 

1 

1.5 

3.5 

2.33333 

x3 

0 

0 

0 

1 

0 

0 

0 

0 

1 

5 

5 


Basis P 


xl x2 

x3 

SI 


S2 S3 


S4 S5 


Solution 

P 

1 

58.3333 

0 

0 

0 

20.83 

0 

8.33 

0 

1716.7 

SI 

0 

-5.5 

0 

0 

1 

-1.25 

0 

-1 

0 

48 

x2 

0 

0 

1 

0 

0 

0 

0 

1 

0 

6 

S3 

0 

1 

0 

0 

0 

0 

1 

0 

0 

9 

S5 

0 

-0.8333 

0 

0 

0 

-0.083 

0 

0.67 

1 

2.3333 

x3 

0 

0.83333 

0 

1 

0 

0.083 

0 

-0.67 

0 

2.6667 


(c) An Excel spreadsheet can be set up to solve the problem as 



A 

B 

C 

D 

E 

F 

1 


regular 

premium 

supreme 

total 

constraint 

2 

amount 

0 

0 

0 



3 

material 

7 

11 

15 

0 

154 

4 

time 

10 

8 

12 

0 

80 

5 

reg stor 

1 

0 

0 

0 

9 

6 

prem stor 

0 

1 

0 

0 

6 

7 

sup stor 

0 

0 

1 

0 

5 

8 

profit 

150 

175 

250 

0 



The Solver can be called and set up as 

Set target cell: E8 

Equal to • max O min O value of 


0 









By changing cells 
B2:D2 

Subject to constraints: 

E3<F3 

E4<F4 

E5<F5 

E6<F6 

E7<F7 

B2>0 

C2>0 

D2>0 

The resulting solution is 



A 

B 

c 

D 

E 

F 

1 


regular 

premium 

supreme 

total 

constraint 

2 

amount 

0 

6 

2.666667 



3 

material 

7 

11 

15 

106 

154 

4 

time 

10 

8 

12 

80 

80 

5 

reg stor 

1 

0 

0 

0 

9 

6 

prem stor 

0 

1 

0 

6 

6 

7 

sup stor 

0 

0 

1 

2.666667 

5 

8 

profit 

150 

175 

250 

1716.667 



In addition, a sensitivity report can be generated as 


Microsoft Excel 5.0c Sensitivity Report 
Worksheet: [PROB1502.XLS]Sheet4 
Report Created: 12/12/97 9:53 


Changing Cells 



Final 

Reduced 


Objective 

Allowable 

Allowable 

Cell 

Name 

Value 

Cost 


Coefficient 

Increase 

Decrease 

$B$2 

amount regular 

0 

-58.33333333 

150 

58.33333333 

1E+30 

$C$2 

amount premium 

6 


0 

175 

1E+30 

8.333333333 

$D$2 

amount supreme 

2.666666667 


0 

250 

12.5 

70 

Constraints 



Final 

Shadow 


Constraint 

Allowable 

Allowable 

Cell 

Name 

Value 

Price 


R.H. Side 

Increase 

Decrease 

$E$3 

material total 

106 


0 

154 

1E+30 

48 

$E$4 

time total 

80 

20.83333333 

80 

28 

32 

$E$5 

reg stor total 

0 


0 

9 

1E+30 

9 

$E$6 

prem stor total 

6 

8.333333333 

6 

4 

3.5 

$E$7 

sup stor total 

2.666666667 


0 

5 

1E+30 

2.333333333 


( d) The high shadow price for time from the sensitivity analysis from (c) suggests that 
increasing time will result in the best increase in profit. 
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(c) Using the Excel Solver 



A 

“ -i— | 

C 

D 

1 

Prob 15.4c 



| 

2 





3 

X 

2 



4 

y 

2 



5 





JL 

fxy 

« 44? 

1 


7 





"8 

Constraints 




9 





10 

5x +4y --> 

18 

<= 

1700 

11 

x + y -> 

4 

<= 

7 

12 

4.5x +3.5y 

16 <= 

1600 

13 

x +2y --> 

6 


500 

14 

x --> 

2 

>= 

0 

15 

y~> 

2 

>= 

0 - 


Solver Parameters 


Set Target Cell: 

Equal To: f* Max 

By Changing Cells: 

|$B$3:$B$4 

Subject to the Constraints: 


33 


Min Value of: |o 


$B$10 <= $D$10 
$B$11 <= $D$1 1 
$B$12 <= $D$12 
$B$13 <= $D$13 
$6$ 14 >= $D$14 
$B$15 >= $D$15 


u 


d 


Change 




Solve 

Close 


Options 


Reset All 


Help 
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Total surface area = kDH + 2 


Minimize 

Constraints: 


( tiD 2 ^ 
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V J 


f (D,H) =ftDH + 


n D 


7t D 2 H 


>320 


3 <D < 10 
2<H<10 


H = 


D 


%D 2 
// = 407.43 


D 


15.12 


when A ~ 260cm 2 
H = 8.41cm 
D = 6.96cm 


Profit: z = 13,000X[ + 15,000x, 

Constraints: 1. 1 7.5x, +21x 2 < 8000 

2. 680xj + 500 x 2 < 240000 

3. x, < 400 

4. x 2 < 350 
5,6. x 1? x 2 <0 


x 2 = 224.2 cars 
Xj = 188.1 cars 


z = $5,810,000 
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17.19 Here’s VBA code to implement linear regression: 

Option Explicit 
Sub Regres ( ) 

Dim n As Integer 

Dim x(20) As Single, y(20) As Single, al As Single, aO As Single 
Dim syx As Single, r2 As Single 

n = 7 

x ( 1 ) = 1: x (2 ) = 2: x(3) = 3: x(4) = 4: x(5) = 5 

x ( 6 ) = 6: x ( 7 ) = 7 

y ( 1 ) = 0.5: y (2 ) = 2.5: y(3) = 2: y(4) = 4: y (5) = 3.5 

y (6) = 6: y (7) = 5.5 

Call Linreg(x(), y(), n, al, aO, syx, r2) 

MsgBox "slope= " & al 

MsgBox "intercept= " & aO 

MsgBox "standard error= " & syx 

MsgBox "coefficient of determination= " & r2 

MsgBox "correlation coefficient= " & Sqr(r2) 

End Sub 

Sub Linreg(x, y, n, al, aO, syx, r2) 

Dim i As Integer 

Dim sumx As Single, sumy As Single, sumxy As Single 
Dim sumx2 As Single, st As Single, sr As Single 
Dim xm As Single, ym As Single 

sumx = 0 
sumy = 0 
sumxy = 0 
sumx2 = 0 
st = 0 
sr = 0 

For i = 1 To n 

sumx = sumx + x(i) 
sumy = sumy + y(i) 
sumxy = sumxy + x(i) * y(i) 
sumx2 = sumx2 + x(i) A 2 
Next i 

xm = sumx / n 
ym = sumy / n 

al = (n * sumxy - sumx * sumy) / (n * sumx2 - sumx * sumx) 
a 0 = ym - a 1 * xm 
For i = 1 To n 

st=st+ (y(i) -ym) A 2 
sr = sr + (y(i) - al * x(i) - aO) A 2 
Next i 

syx = (sr / (n - 2)) A 0.5 
r2 = (st - sr) / st 


End Sub 
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17.20 


log N 

log Stress 

0 

3.053463 

1 

3.024486 

2 

2.996949 

3 

2.903633 

4 

2.813581 

5 

2.749736 

6 

2.630428 


x i y i = 58.514 
X; 2 =91 

Xj =21 


Vj = 20.17228 
x = 3 

V = 2.8817 


n Y, x iyi~Y, x iyj _ 7(58.514)-(21)(20.17228) 
«£^ 2 -(£^.) 2 " 7(91) (2 1) 2 


a 0 = y- a x x = 2.8817 — ( — 0.07 1 53)(3) = 3.09629 


Therefore, y = -0.07 1 53x + 3.0963 . Excel spreadsheet solution: 


least squares fit 



♦ Seriesl 
Linear (Seriesl ) 


log cycles 



17.21 This problem was solved using an Excel spreadsheet and TrendLine. Linear regression 
gives 



Forcing a zero intercept yields 



One alternative that would force a zero intercept is a power fit 



Flowever, this seems to represent a poor compromise since it misses the linear trend in the data. 
An alternative approach would to assume that the physically-unrealistic non-zero intercept is an 
artifact of the measurement method. Therefore, if the linear slope is valid, we might try y = 
0.0454x. 


log viscosity 


17.22 This problem was solved using an Excel spreadsheet. 



17.23 Using Excel, plot a linear fit which results in R 2 = 0.9949. Using an exponential fit results 
in R 2 = 1 , which implies a perfect fit. Therefore, use the exponential solution. 

The amount of bacteria after 30 days: 

y = 67.382e°' 0257x 
v(30) = 145.67 x 10 6 
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18.14 Here is a VBA program to implement Newton interpolation. It is set up to solve Example 
18.5: 


Option Explicit 
Sub Newt ( ) 

Dim n As Integer, i As Integer 

Dim yint(10) As Single, x(10) As Single, y ( 1 0 ) As Single 
Dim ea(10) As Single, xi As Single 

Range ("a5") .Select 
n = ActiveCell . Row 
Selection . End (xlDown) .Select 
n = ActiveCell . Row - n 
Range ("a5") .Select 
For i = 0 To n 

x(i) = ActiveCell . Value 
ActiveCell .Offset (0, 1). Select 
y(i) = ActiveCell .Value 
ActiveCell . Of f set ( 1 , -1). Select 
Next i 

Range ("e3") .Select 
xi = ActiveCell .Value 



Call Newtint(x(), y(), n, xi, yint, ea) 

Sheets ("Sheetl") .Select 
Range ( "d5 : f25" ) . ClearContents 
Range ("d5") .Select 
For i = 0 To n 

ActiveCell .Value = i 
ActiveCell . Of f set (0 , 1). Select 
ActiveCell .Value = yint(i) 

ActiveCell . Of f set (0 , 1). Select 
ActiveCell .Value = ea(i) 

ActiveCell . Of f set ( 1 , -2). Select 
Next i 

Range ("a5") .Select 
End Sub 

Sub Newtint(x, y, n, xi, yint, ea) 

Dim i As Integer, j As Integer, order As Integer 
Dim fdd(10, 10) As Single, xterm As Single 
Dim yint2 As Single 

For i = 0 To n 
fdd ( i , 0) = y(i) 

Next i 

For j = 1 To n 

For i = 0 To n - j 

fdd ( i , j) = (fdd (i + 1, j - 1) - fdd(i, j - 1)) / (x(i + j) - x(i)) 

Next i 
Next j 
xterm = 1# 
yint (0) = fdd(0, 0) 

For order = 1 To n 

xterm = xterm * (xi - x (order - 1)) 
yint2 = yint (order - 1) + fdd(0, order) * xterm 
ea (order - 1) = yint2 - yint (order - 1) 
yint (order) = yint2 
Next order 

End Sub 

18.15 Here is the solution when the program from Prob. 18.14 is run. 
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Problem 18.15 
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3 

Data: 



Interpolation at x = 

2 





4 

X 

y 


order 

f(x) 

error (%) 




5 

1- 

o 


0 

0 

0.4620981 




6 

4 

1.386294 


1 

0.462098122 

0.1037462 


RUN 


7 

6 

1.791759 


2 

0.565844357 

0.0629242 



8 

5 

1.689438 


3 

0.628768563 

0.0469534 




9 

3 

1.098612 


4 

0.675721943 

0.0217922 




10 

1.5 

0.485465 


5 

0.697514176 

-0.003616 




11 

2.5 

0.916291 


6 

0.693897784 

-0.000459 




12 

3.5 

1.252763 


7 

0.693438709 

0 




13 











18.16 See solutions for Probs. 18.1 through 18.3. 

18.17 A plot of the error can easily be added to the Excel application. The following shows the 
solution for Prob. 18.4: 



The following shows the solution for Prob. 18.5: 



Option Explicit 
Sub LagrlntO 

Dim n As Integer, i As Integer, order As Integer 
Dim x(10) As Single, y(10) As Single, xi As Single 

Range ("a5") .Select 
n = ActiveCell . Row 
Selection . End (xlDown) .Select 
n = ActiveCell . Row - n 
Range ("a5") .Select 
For i = 0 To n 

x(i) = ActiveCell . Value 
ActiveCell . Of f set (0 , 1). Select 
y(i) = ActiveCell .Value 
ActiveCell . Of f set (1 , -1). Select 
Next i 

Range ("e3") .Select 
order = ActiveCell .Value 
ActiveCell . Of f set ( 1 , 0). Select 
xi = ActiveCell . Value 


ActiveCell . Of f set (2 , 0). Select 

ActiveCell .Value = Lagrange (x () , y(), order, xi) 


End Sub 

Function Lagrange (x, y, order, xi) 

Dim i As Integer, j As Integer 
Dim sum As Single, prod As Single 

sum = 0# 

For i = 0 To order 
prod = y(i) 

For j = 0 To order 
If i <> j Then 

prod = prod * (xi — x ( j ) ) / (x(i) - x(j)) 

End If 
Next j 

sum = sum + prod 
Next i 

Lagrange = sum 
End Function 

Application to Example 18.7: 
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Example 18.7 
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3 

Data: 



Order* 

2 


RUN 


4 

X 

y 


Interpolation at x = 

10 



5 

13 

4755 







6 

7 

3940 


f(x) — 

4672.813 




7 

5 

3090 







8 

3 

2310 







9 

1 

800 







10 










18.19 The following VBA program uses cubic interpolation for all intervals: 

Option Explicit 
Sub Newt ( ) 

Dim n As Integer, i As Integer 

Dim yint(10) As Single, x(10) As Single, y(10) As Single 
Dim ea(10) As Single, xi As Single 

Range ("a5") .Select 
n = ActiveCell . Row 
Selection . End (xlDown) .Select 
n = ActiveCell . Row - n 
Range ("a5") .Select 
For i = 0 To n 

x(i) = ActiveCell . Value 
ActiveCell . Of f set (0 , 1). Select 
y(i) = ActiveCell .Value 
ActiveCell . Of f set (1 , -1). Select 
Next i 

Range("e4") .Select 
xi = ActiveCell . Value 

ActiveCell. Offset (2, 0). Select 
ActiveCell .Value = Interp(x(), y(), n, xi) 

Range ("a5") .Select 


End Sub 


Function Interp(x, y, n, xx) 

Dim ii As Integer 

If xx < x(0) Or xx > x (n) Then 
Interp = "out of range" 

Else 

If xx <= x(ii + 1) Then 

Interp = Lagrange (x, y, 0, 3, xx) 

Elself xx <= x(n - 1) Then 
For ii = 0 To n - 2 

If xx >= x(ii) And xx <= x(ii + 1) Then 
Interp = Lagrange (x, y, ii - 1, 3, xx) 
Exit For 
End If 
Next ii 
Else 

Interp = Lagrange (x, y, n - 3, 3, xx) 

End If 
End If 

End Function 


Function Lagrange (x, y, iO, order, xi) 

Dim i As Integer, j As Integer 
Dim sum As Single, prod As Single 

sum = 0# 

For i = iO To iO + order 
prod = y(i) 

For j = iO To iO + order 
If i <> j Then 

prod = prod * (xi — x ( j ) ) / (x(i) - x(j)) 

End If 
Next j 

sum = sum + prod 
Next i 

Lagrange = sum 
End Function 

Application to evaluate ln(2.5): 
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B 
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D 
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F 
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H 
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1 

Problem 18.4 









2 










3 

Data: 









4 

X 

y 


Interpolation at x = 

2.5 





5 

1 

0 








6 

2 

0.693147 


f(x) = 

0.921221316 



RUN 


7 

3 

1.098612 







8 

4 

1.386294 


True value 

0.916290732 





9 

5 

1.609438 








10 

6 

1.791759 


Error 

0.53810 

% 




11 

7 

1.94591 








12 

8 

2.079442 








13 

9 

2.197225 








14 

10 

2.302585 








15 











18.20 

Sub Splines () 

Dim i As Integer, n As Integer 


Dim x(7) As Single, y ( 7 ) As Single, xu As Single, yu As Single 
Dim dy As Single, d2y As Single 


Range ("a5") .Select 
n = ActiveCell . Row 
Selection . End (xlDown) .Select 
n = ActiveCell . Row - n 
Range ("a5") .Select 
For i = 0 To n 

x(i) = ActiveCell . Value 
ActiveCell .Offset (0, 1). Select 
y(i) = ActiveCell .Value 
ActiveCell . Of f set ( 1 , -1). Select 
Next i 

Range("e4") .Select 
xu = ActiveCell .Value 

Call Spline (x(), y(), n, xu, yu, dy, d2y) 

ActiveCell .Offset (2, 0). Select 
ActiveCell .Value = yu 

End Sub 

Sub Spline (x, y, n, xu, yu, dy, d2y) 

Dim e ( 1 0 ) As Single, f ( 1 0 ) As Single, g ( 1 0 ) As Single, r(10) As Single, 
d2x(10) As Single 

Call Tridiag(x, y, n, e, f, g, r) 

Call Decomp(e(), f(), g(), n - 1) 

Call Substit(e(), f(), g(), r(), n - 1, d2x()) 

Call Interpol (x, y, n, d2x(), xu, yu, dy, d2y) 

End Sub 

Sub Tridiag(x, y, n, e, f, g, r) 

Dim i As Integer 

f (1) = 2 * (x (2 ) - x ( 0 ) ) 
g ( i ) = x(2) - x ( l ) 

r (1) = 6 f (x (2 ) - x(l) ) * (y (2) - y(l) ) 
r ( 1 ) = r ( 1 ) + 6 / (x (1) - x ( 0 ) ) * (y (0) - y (1) ) 

For i = 2 To n - 2 

e (i) = x (i) - x ( i - 1) 

f (i) = 2 * (x(i + 1) - x(i - 1) ) 

g(i) = x(i + 1) - x ( i ) 

r (i) = 6 / (x(i + 1) - x (i) ) * (y(i + 1) - y ( i ) ) 

r (i) = r(i) + 6 / (x(i) - x(i - 1)) * <y(i - 1) - y(i)) 

Next i 

e(n - 1) = x (n - 1) - x (n - 2) 
f (n - 1) = 2 * (x (n) - x (n - 2) ) 

r(n - 1) = 6 / (x (n) - x (n - 1)) * (y(n) - y(n - 1)) 

r(n - 1) = r (n - 1) + 6 / (x (n - 1) - x(n - 2)) * (y(n - 2) - y(n - 1)) 

End Sub 

Sub Interpol (x, y, n, d2x, xu, yu, dy, d2y) 

Dim i As Integer, flag As Integer 

Dim cl As Single, c2 As Single, c3 As Single, c4 As Single 

Dim tl As Single, t2 As Single, t3 As Single, t4 As Single 

flag = 0 
i = 1 
Do 

If xu >= x(i - 1) And xu <= x(i) Then 
cl = d2x(i - 1) / 6 / (x(i) - x(i - 1)) 
c2 = d2x(i) / 6 / (x(i) - x(i - 1)) 



D) / 6 


c3 = y(i - 1) / (x(i) - x(i - 1)) - d2x(i - 1) * (x(i) - x(i - 

c4 = y ( i ) / (x ( i ) - x(i - 1)) - d2x(i) * (x(i) - x(i - 1)) / 6 

tl = cl * (x(i) - xu) A 3 

t2 = c2 * (xu - x(i - 1) ) A 3 

t3 = c3 * (x(i) - xu) 

t4 = c4 * (xu - x(i - 1)) 

yu = tl + t2 + t3 + t4 

tl = -3 * cl * (x (i) - xu) A 2 

t2 = 3 * c2 * (xu - x ( i - 1)) A 2 
t3 = -c3 
t4 = c4 

dy = tl + t2 + t3 + t4 
tl = 6 * cl * (x(l) - xu) 

t2 = 6 * c2 * (xu - x(i - 1) ) 

d2y = tl + t2 
flag = 1 
Else 

i = i + 1 
End If 

If i = n + 1 Or flag = 1 Then Exit Do 
Loop 

If flag = 0 Then 

MsgBox "outside range" 

End 
End If 
End Sub 

Sub Decomp (e, f, g, n) 

Dim k As Integer 
For k = 2 To n 

e (k) = e (k) / f(k - 1) 
f (k) = f (k) - e (k) * g (k - 1) 

Next k 

End Sub 

Sub Substit(e, f, g, r, n, x) 

Dim k As Integer 

For k = 2 To n 

r(k) = r(k) - e(k) * r(k - 1) 

Next k 

x (n) = r (n) / f (n) 

For k = n - 1 To 1 Step -1 

x ( k ) = ( r ( k) - g ( k) * x(k + 1)) / f(k) 

Next k 

End Sub 
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Example 18.10 







2 









3 

Data: 








4 

X 

y 


Interpolation at x = 

5 


RUN 


5 

3 

2.5 






6 

4.5 

1 


f(x) = 

1.10289 




7 

7 

2.5 







8 

9 

0.5 







9 










18.21 The following shows the solution for Prob. 18.4: 



The following shows the solution for Prob. 18.5: 
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B 
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D 

E 

F 

G 

H 
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Problem 18.5 
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Data: 








4 

X 

y 


Interpolation at x = 

2.25 


RUN 


5 

1 

4.75 






6 

2 

3 


f(x) = 

3.204406 




7 

3 

5.25 







8 

5 

19.75 







9 

6 

36 







10 










18.22 


/,« = f(x 0 ) + /U) /(Xo) (x - * a ) 

X \~ X o 

6.7664-6.5453 
0.12547-0.11144 


/j (*) = 6.5453 + 


(jc- 0.1 1144) 


f x (x) = 4.789107 + 15. 579x 


x = 0. 1 18,/i(.r) = 6.6487 


s = 6.6487 


kJ 


kg o K 


CHAPTER 19 


19.1 The normal equations can be derived as 


11 

2.416183 

2.018098' 

A 

i 

r 83.9 1 

2.416183 

2.018098 

6.004565 

0.017037 

0.017037 ■ 
4.995435 

■ A 

KJ 

1 

15.43934 
1 0.81 054 J 


which can be solved for 

A 0 = 7.957538 

A i = -0.6278 

B\ = -1.04853 


The mean is 7.958 and the amplitude and the phase shift can be computed as 


C, = '/( — 0.6278) +(-1.04853) = 1.222 


9 = tan 


-l 


- 1.04853 

- 0.6278 


+ 7t = 2.1 1 radians x 


12 hrs 


71 


= 8.06 hr 


Thus, the final model is 


f{t) = 7.958 + 1.222 cos^ ( t + 8.06) 


The data and the fit are displayed below: 



0 12 24 


Note that the peak occurs at 24 - 8.06 = 15.96 hrs. 


19.2 The normal equations can be derived as 




"1890 

127.279 

- 568.187“ 


Aq 

f 350,265 1 

0 

5 

-1 

• 

A x 

■ = t - 381.864 

0 

-1 

5 


A 

[ 156.281 


which can be solved for 


A 0 = 195.2491 

A i = -73.0433 
B,= 16.64745 


The mean is 195.25 and the amplitude and the phase shift can be computed as 


C, = V(- 73.0433) 2 + (16.6475) 2 = 74.916 


0 = tan 1 


' 16.6475 ' 
v — 73.0433, 


+ 7t = 3.366 radians x 


180 d 


= 192.8 d 


71 


Thus, the final model is 


f(t) = 195.25 + 74.91 6 cosf — (t + 192.8) 

U60 


The data and the fit are displayed below: 



19.3 In the following equations, GOo = 271 IT 

r T 

sin(to 0 ?)A -co 0 [cos(co 0 t)] 


i o _ 
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to, 
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Y~[ sin 271 - sinO) = 0 
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T 
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o 

3 

<N 

C/3 

1 

T 

r _ s “ 4 ’ t _0 + 0 
o _ 2 4co 0 _ 1 

2 4cd 0 

T 

J cos 2 (co 0 t)ii7 

T 

f t sin(2to 0 7) 

T 2 

T 

7 V i " /ta _0-0 

o _ 2 4co 0 _ 1 

1 

K> | 

4^ 

3 

o 


J cos(co 0 7) sin(co 0 7)<f7 

sin 2 ( co 0 /) 

T 

sin 2 27t 

T 

2rco 0 

2to 0 r 

0 


-0 = 0 


19.4 ao = 0 


2 r T/2 

a k = — J - t cos( A;cd 0 7) dt 


T J-TI2 

2 
T 


kt o 


- — -cos|A'Cfl 0 t) + — — sin( A'to 0 ?) 


A(O n 


-, 7/2 


Jr/2 


2 f r/2 

b k = — J - t sin( k(O 0 t) dt 


— - — — sin( k(O 0 t) - — — cos( Aro 0 t) 
[JfcooJ ka r 


J o 


'o 


r /2 


r /2 


On the basis of these, all a’s = 0. For k = odd, 

, 2 
b k = — 

Ait 

For k = even, 

2 


b k =“ 


kK 


Therefore, the series is 


2 12 1 

/ (7) = sin(co 0 t) + — sin(2co 0 t) sin(3co 0 ?) + — sin(4co 0 ?) + 

71 71 371 271 


The first 4 terms are plotted below along with the summation: 



19.5 flo = 0.5 


a h = 


2 

= 1 < 


J" - t cos( b r?) dt + J t cos( bit ) dt 


i° 

cos( bit} t sin( bit} 


\bl\ 


kai 


+ 


-l 


cos( bit ) t sin( bit} 


bi) 


kn 


cos 


\bi\ 


kn - 1) 


b k = 0 

Substituting these coefficients into Eq. (19.17) gives 

.. . . 1 12 / \ 12 /_ \ 12 / \ 

f(t) = — - — -COS 7tt -COS 37lt -COS 57tt +••• 

2 7t 2 ^ 97t 2 y 1 25n 2 { 1 

This function for the first 4 terms is displayed below: 






19.10 Here’s a Fortran 90 code that implements the DFT. It is set up to solve Prob. 19.1 1. 


PROGRAM DFourier 
IMPLICIT NONE 
INTEGER i,N 

REAL f (0:127) , re (0:127) , im (0:127) , omega, pi, t , Tp, dt 
pi=4 . *atan ( 1 . ) 

N=32 

omega=2 . *pi/N 
t=0 . 

Tp=2 . *pi 
dt=4 . *Tp/N 
DO 1=0, N-l 
f (i) =sin (t) 

if (f (i) . LT . 0 . ) f (i)=0. 
t=t+dt 
END DO 

CALL DFT ( f, N, re, im, omega) 

OPEN (UNIT=1 , FILE= ' Probl 911 . dat ' , STATUS= ' unknown ' ) 
DO i=0 , N-l 

WRITE (1,*) i , f ( i ) , re ( i ) , im ( i ) 

END DO 
CLOSE (1) 

END 

SUBROUTINE DFT ( f, N, re, im, omega) 

IMPLICIT NONE 
INTEGER k, nn, N 

REAL f (0:127) , re (0:127) , im (0:127) , angle, omega 
DO k=0 , N-l 
DO nn=0 , N-l 

angle=k*omega*nn 
re (k) =re (k) +f (nn) *cos (angle) /N 
im (k) =im (k) -f (nn) *sin (angle) /N 
END DO 
END DO 
END 

19.1 1 The results for the n = 32 case are displayed below: 


index 

f(t) 

real 

imaginary 

0 

0 

0.3018 

0 

1 

0.7071 

0 

0 

2 

1 

0 

0 

3 

0.7071 

0 

0 

4 

0 

0 

-0.25 

5 

0 

0 

0 

6 

0 

0 

0 

7 

0 

0 

0 

8 

0 

-0.125 

0 

9 

0.7071 

0 

0 

10 

1 

0 

0 

11 

0.7071 

0 

0 

12 

0 

0 

0 

13 

0 

0 

0 

14 

0 

0 

0 

15 

0 

0 

0 

16 

0 

-0.0518 

0 

17 

0.7071 

0 

0 

18 

1 

0 

0 

19 

0.7071 

0 

0 

20 

0 

0 

0 



21 

0 

0 

0 

22 

0 

0 

0 

23 

0 

0 

0 

24 

0 

- 0.125 

0 

25 

0.7071 

0 

0 

26 

1 

0 

0 

27 

0.7071 

0 

0 

28 

0 

0 

0.25 

29 

0 

0 

0 

30 

0 

0 

0 

31 

0 

0 

0 


The runs for N= 32, 64 and 128 were performed with the following results obtained. (Note 
that even though we used a slow PC, we had to call the function numerous times to obtain 
measurable times. These times were then divided by the number of function calls to 
determine the time per call shown below) 


N 

time (s) 

32 

0.09 

64 

0.37 

128 

1.48 


A power (log-log) model was fit (see plot below) to this data to yield log(time) = -4.08 + 
2.02 log (A). Thus, the result verifies that the execution time <=< A 2 . 



19.12 Here’s a Fortran 90 code that implements the FFT. It is set up to solve Prob. 19.13. 

PROGRAM FFourier 
IMPLICIT NONE 
INTEGER i,N 

REAL f (0:127) , re (0:127) , im (0:127) , omega, pi, t, Tp, dt 
pi=4 . *ATAN (1 . ) 

N=32 
t=0 . 

Tp=2 . *pi 
dt=4 . *Tp/N 
DO i=0 , N-l 
re (i) =sin (t) 

if (re (i) . LT . 0 . ) re(i)=0. 
f (i) =re (i) 
t=t+dt 
END DO 

CALL FFT (N, re , im) 

DO i=0 , N-l 



PRINT *, i, f (i) , re (i) , im (i) 

END DO 
CLOSE (1) 

END 

SUBROUTINE FFT (N, x, y) 

IMPLICIT NONE 

INTEGER :: i , j , N, m, N2 , N1 , k, 1 

REAL :: f ( 0 : 127 ), re ( 0 : 127 ), im ( 0 : 127 ), omega, pi , t , Tp, dt , xN, angle 

REAL :: arg, c, s , xt , x ( 0 : n) , y ( 0 : n) , yt 

xN=N 

m = INT (LOG (xN) / LOG (2.)) 
pi = 4 . * ATAN (1 . ) 

N2 = N 
DO k = 1 , m 
N1 = N2 
N2 = N2 / 2 
angle = 0 . 
arg = 2 * pi / N1 
DO j = 0, N2 - 1 
c = COS (angle) 
s = -SIN (angle) 

DO i = j, N - 1, N1 
1 = i + N2 
xt = x (i) - x (1) 

x(i) = x (i) + x ( 1 ) 
yt = y(i) - y (1) 
y(i) = y(i) + y ( 1 ) 
x(l) = xt * c - yt * s 
y(l) = yt * c + xt * s 
END DO 

angle = (j + 1) * arg 
END DO 
END DO 

j = 0 

DO i = 0, N - 2 
IF (i.LT.j) THEN 
xt = x ( j ) 
x ( j ) = x (i) 
x ( i ) = xt 
yt = y ( j ) 
y ( j ) = y (i) 
y (i) = yt 
END IF 
k = N / 2 
DO 

IF (k.GE.j+1) EXIT 
j = j - k 
k = k / 2 
END DO 
j = j + k 
END DO 

DO i = 0, N - J 
x (i) = x (i) / N 
y(i) = y(i) / N 
END DO 
END 


19.13 Note that the results for the n = 32 case should be the same as for the DFT as in the first 
part of the solution of Prob. 19.11 as shown above. The runs for N= 32, 64 and 128 were 
performed with the following results obtained. (Note that even though we used a slow PC, 
we had to call the function numerous times to obtain measurable times. These times were 
then divided by the number of function calls to determine the time per call shown below) 

N time (s) 



32 0.0135 

64 0.031 

128 0.068 

A plot of time versus N logiN yielded a straight line (see plot below). Thus, the result 
verifies that the execution time N log iN. 

time 

0.05 


o 1 — i — I — I — I — I — I — I — I — I — l 

0 500 1000 

A lOgyY 



19.14 Using a similar approach to that described in Example 19.3, the Excel Chart Wizard and 
the Trendline tool can be used to create the following fit: 



19.15 Using a similar approach to Example 19.4, the following spreadsheet can be set up: 


T 

7 A 2 

T A 3 

T A 4 

o 

0 

0 

0 

0 

14.621 

8 

64 

512 

4096 

11.843 

16 

256 

4096 

65536 

9.87 

24 

576 

13824 

331776 

8.418 

32 

1024 

32768 

1048576 

7.305 

40 

1600 

64000 

2560000 

6.413 


The Data Analysis Toolpack can then be used to generate 

SUMMARY OUTPUT 

Regression Statistics 
Multiple R 0.99999994 


R Square 0.99999988 

Adjusted R Square 0.99999939 
Standard Error 0.00239377 

Observations 6 


ANOVA 



df 


SS 

MS 

F 

Significance F 

Regression 


4 

47.0093523 

11.75234 

2050962 

0.0005237 

Residual 


1 

5.7302E-06 

5.73E-06 



Total 


5 

47.009358 






Coefficients 

Std Error 

tStat 

P-value 

Lower 95% 

Upper 95% 

Intercept 

14.6208492 

0.00238902 

6120.018 

0.000104 

14.59049395 

14.6512 

X Variable 1 

-0.4113267 

0.0011012 

-373.527 

0.001704 

-0.425318685 

-0.39733 

X Variable 2 

0.0090115 

0.00013149 

68.53234 

0.009289 

0.007340736 

0.010682 

X Variable 3 

-0.0001302 

5.1867E-06 

-25.1078 

0.025342 

-0.000196129 

-6.4E-05 

X Variable 4 

8.4432E-07 

6.4426E-08 

13.10526 

0.048483 

2.57132E-08 

1.66E-06 


The polynomial along with the data can be plotted as 



19.16 Linear regression can be implemented with the Data Analysis Toolpack in a fashion 

similar to Example 19.4. After setting the data ranges, the confidence interval box should 
be checked an set to 90% in order to generate 90% confidence intervals for the 
coefficients. The result is 

SUMMARY OUTPUT 


Regression Statistics 


Multiple R 

0.98465 

R Square 

0.969535 

Adjusted R 

0.963442 

Square 

Standard 

1.625489 

Error 

Observations 

7 


ANOVA 

df SS MS F Significance F 


Regression 


1 420.4375 420.4375 159.1232 5.56E-05 








Residual 

Total 


5 13.21107 2.642214 

6 433.6486 



Coefficients 

Standard 

tStat 

P-value Lower 95% Upper 95% 

Lower 

Upper 



Error 





90.0% 

90.0% 

Intercept 

0.714286 

1 .373789 

0.519938 

0.625298 

-2.81715 

4.245717 

-2.05397 

3.482538 

X Variable 1 

1 .9375 

0.153594 

12.6144 

5.56E-05 

1.542674 

2.332326 

1.628 

2.247 


The 90% confidence interval for the intercept is from -2.05 to 3.48, which encompasses 
zero. The regression can be performed again, but with the “Constant is Zero” box checked 
on the regression dialogue box. The result is 

SUMMARY OUTPUT 


Regression Statistics 


Multiple R 

0.983813 

R Square 

0.967888 

Adjusted R 

0.801221 

Square 

Standard 

1.523448 

Error 

Observations 

7 


ANOVA 

df SS MS F Significance F 

Regression 1 419.7232 419.7232 180.8456 4.07E-05 

Residual 6 13.92536 2.320893 

Total 7 433.6486 



Coefficients 

Standard 

tStat 

P-value Lower 95% Upper 95% 

Lower 

Upper 



Error 





90.0% 

90.0% 

Intercept 

0 

#N/A 

#N/A 

#N/A 

#N/A 

#N/A 

#N/A 

#N/A 

X Variable 1 

2.008929 

0.064377 

31.20549 

7.19E-08 

1.851403 

2.166455 

1 .883832 

2.134026 


The data along with both fits is shown below: 



19.17 Using MATLAB: 

» x=[0 2 4 7 10 12] ; 

» y= [20 20 12 7 6 5.6] ; 








» xi=0 : .25:12; 

» yi=spline (x, y, xi ) ; 
>> plot (x, y, ' o ' , xi, yi) 



>> spline (x, y, 3) 

ans = 

16.0669 

19.18 Using Mathcad 
i =0.. 63 



0 5 


i 

2 - 71 - — 

63 

C =fft(x) 

j =0..20 





19.19 As in Example 19.5, the data can be entered as 

» x= [0 2 4 7 10 12] ; 

» y= [20 20 12 7 6 5.6]; 

Then, a set of x values can be generated and the interpl function used to generate the 
linear interpolation 

>> xi=0 : .25:12; 

>> yi=interpl (x, y, xi ) ; 

These points can then be plotted with 

>> plot (x, y, ' o ' , xi , yi) 



The 5th-order interpolating polynomial and plot can be generated with 

>> p=polyf it (x, y, 5) 

P = 

0.0021 -0.0712 0.8909 -4.5982 6.1695 20.0000 

>> yi=polyval (p, xi ) ; 

>> plot (x, y, ' o ' , xi , yi ) 



The cubic spline and plot can be generated with 

>> yi=spline (x, y, xi ) ; 

>> plot (x, y, ' o ' , xi , yi ) 



19.20 The following MATLAB session develops the fft along with a plot of the power spectral 
density versus frequency. 

>> t=0 : 63 ; 

>> y=cos (3*2*pi*t/63)+sin(10*2*pi*t/63) +randn (size (t) ) ; 

» Y=f ft (y, 64) ; 

>> Pyy=Y . *conj (Y) /64 ; 

» f=1000* (0:31) /64; 

>> plot (f , Pyy (1 : 32) ) 



19.21 

PROGRAM Fitpoly 

Use IMSL 

Implicit NONE 

Integer : : ndeg, nobs, i, j 

Parameter (ndeg=4, nobs=6) 

Real:: b (ndeg + 1), sspoly(ndeg + 1), stat(10), X(nobs), y(nobs), 
(nobs) 

Data x/0, 8, 16, 24, 32, 40/ 

Data y/14. 621, 11. 84 3, 9. 87 0, 8. 418, 7. 305, 6. 413/ 

Call Rcurvfnobs, X, y, ndeg, b, sspoly, stat) 

Print *, 'Fitted polynomial is' 

Do i = l,ndeg+l 

Print 10, i - 1, b(i) 

End Do 
Print * 

Print 20, stat (5) 

Print * 

Print *, ' No. X Y YCALC ' 

Do i = l,nobs 
ycalc = 0 
Do j = l,ndeg+l 

ycalc(i) = ycalc (i) + b ( j ) *x (i) ** ( j-1) 

End Do 

Print 30, i, X(i), y(i), ycalc (i) 

End Do 

10 Format ( IX, 'X A ',I1,' TERM: ',F8.4) 

20 Format (IX, 'R A 2 : ',F8.3,'%') 

30 Format (IX, 18, 3 (5X, F8 . 4) ) 

End 


Output : 


Fitted polynomial is 



X' 

'0 

TERM 

14 . 6208 



X' 

V 1 

TERM 

-0 .4113 



X' 

'2 

TERM 

0.0090 



X' 

v 3 

TERM 

-0.0001 



X' 

'4 

TERM 

0.0000 



R' 

'2 

100.000% 





No 

X 

Y 

YCALC 



1 

0 . 0000 

14 . 6210 

14 . 6208 



2 

8 . 0000 

11 . 8430 

11 . 8438 



3 

16.0000 

9.8700 

9.8685 



4 

24 . 0000 

8 .4180 

8 . 4195 



5 

32.0000 

7.3050 

7 . 3042 


ycalc 


6 


40 . 0000 


6.4130 


6 . 4132 


19.22 Using Excel, plot the data and use the trend line function to fit a polynomial of specific 
order. Obtain the R - squared value to determine the goodness of fit. 


Dye Concentraion vs. Time 



Dye Concentraion vs. Time 


Seconds after injection 



Use the 4 th order polynomial: 

C = 0.0003f 4 -0.01511 3 +0.2092? 2 -0.5741f + 0.3917 


Integrate to find the area under the curve: 




24 


Jo . 0003 t 4 - O.OlSlf 3 + 0 . 2092? 2 - 0.57412 + 0.3917 dt = 33.225 


33.225 mg sec/L 


5 mg 


Cardiac output = — 5 ; -0.1 5049 LI sec -9 LI min 

33.225 mg sec / L 


Cardiac output = 9 I ./min 
19.23 Plug in A o = 1 and T = => 

oo 

/<»>=£ 


72=1 


f 4 A 0 ) 

sin 

f2n(2n-l)t) 

t(2«-l)tt J 


T 

\ 1 J 


Make table and plot in Excel => 

Shown on the following pages 


Area under curve: 



0 

0 . 

317 

0 . 

613 

0 . 

872 

1 . 

075 

0 

0 . 

291 

0 . 

424 

0 . 

327 

0 . 

053 

0 

0 . 

242 

0 . 

150 

E 

150 

m 

242 

0 

0 . 

179 


067 


154 

0 . 

125 

0 

0 . 

109 


139 

0 . 

068 

0 . 

052 

0 

0 . 

043 


079 

0 . 

105 

m 

116 

0 

1 . 

180 

0 . 

901 

1 . 

068 

0 . 

947 


0.05 

0.06 

C 

).07 

C 

).08 

C 

).09 

.211 

1 . 

271 

1 . 

251 

1 . 

152 

0 . 

981 

.249 

m 

417 

m 

358 

E 

106 

0 . 

204 

.000 

0 . 

242 

0 . 

150 

m 

150 

E 

242 

.107 

m 

165 

E 

045 

0 . 

182 

m 

023 

.135 

0 . 

119 


018 

E 

097 

0 . 

141 

.110 

m 

089 

0 . 

056 


015 

m 

029 

.044 

0 . 

962 

1 . 

035 

0 . 

967 

i . 

033 


0 


0 


0 


0 


0 


0 


.11 


0 


748 


.469 

O.lf 

30 

-o.ie 

404 

K 

.384 

0.1! 

m 

- 0 . 1 £ 

000 

K 

.242 

0.1! 

50 

-0.15 

173 

K 

.088 

0.1' 

10 

-0.14 

083 

B 

035 

o.i; 

18 

-0.12 

068 

E 

098 

0.1 

4 

-0.11 

964 

i 

.050 

0.8' 

17 

-0.84 


0.14 

C 

). 1 5 

C 

). 1 6 

.469 

m 

748 

Hi 

981 

.384 


404 

23 

204 

.242 

0 . 

000 

0 . 

242 

.088 

0 . 

173 

0 . 

023 

.035 

0 . 

083 

m 

141 

.098 

E 

068 

0 . 

029 

.050 


964 

- 1 . 

033 


.152 

- 1.251 

- 1 . 

271 

- 1 . 

211 

.106 

0.358 

0 . 

417 

0 . 

249 

.150 

- 0.150 

m 

242 

0 . 

000 

.182 

0.045 

0 . 

165 

m 

107 

.097 

0.018 

m 

119 

0 . 

135 

.015 

- 0.056 

0 . 

089 

m 

110 

.967 

- 1.035 

El 

962 

- i . 

044 


0 


0 


BE 
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2 1 .22 Here is a VBA code to implement the multi-segment trapezoidal rule for equally-spaced 
segments: 

Option Explicit 
Sub TestTrapm() 

Dim n As Integer, i As Integer, ind As Integer 
Dim label As String 

Dim a As Single, b As Single, h As Single 
Dim x(100) As Single, f(100) As Single 

'Enter data and integration parameters 

ind = InputBox ( "Functional (1) or Tabulated (2) data?") 
a = InputBox ( "Lower bound = ") 
b = InputBox ( "Upper bound = ") 
n = InputBox ( "Number of segments = ") 
h = (b - a) / n 
If ind = 1 Then 

'generate data from function 
x ( 0 ) = a 
f (0) = fx (a) 

For i = 1 To n 

x (i) = x ( i - 1 ) + h 
f (i) = f x ( x ( i ) ) 

Next i 
Else 

'user input table of data 
x ( 0 ) = a 

label = "f(" & x ( 0 ) & ") = " 
f(i) = Val (InputBox (label) ) 

For i = 1 To n 

x (i) = x ( i - 1) + h 

label = "f(" & x ( i ) & ") = " 

f(i) = InputBox ( label ) 

Next i 
End If 

'invoke function to determine and display integral 
MsgBox "The integral is " & Trapm(h, n, f()) 

End Sub 

Function Trapm(h, n, f) 

Dim i As Integer 
Dim sum As Single 
sum = f (0 ) 

For i = 1 To n - 1 
sum = sum + 2 * f(i) 

Next i 

sum = sum + f (n) 

Trapm = h * sum / 2 
End Function 

Function fx (x) 

fx = 0.2 + 25 * x - 200 * x A 2 + 675 * x A 3 - 900 * x A 4 + 400 * x A 5 
End Function 

21.23 Here is a VBA code to implement the multi-segment Simpson’s 1/3 rule algorithm from 
Fig. 21.13c: 

Option Explicit 


Sub TestSimpm() 



Dim n As Integer, i As Integer 
Dim label As String 

Dim a As Single, b As Single, h As Single 
Dim x(100) As Single, f(100) As Single 

'Enter data and integration parameters 
a = InputBox ( "Lower bound = ") 
b = InputBox ( "Upper bound = ") 
n = InputBox ( "Number of segments = ") 
h = (b - a) / n 

'generate data from function fx 
x (0 ) = a 
f (0) = fx (a) 

For i = 1 To n 

x (i) = x ( i - 1) + h 
f (i) = f x ( x ( i ) ) 

Next i 

'invoke function Simpl3m to determine and display integral 
MsgBox "The integral is " & Simpl3m(h, n, f()) 

End Sub 

Function Simpl3m(h, n, f) 

Dim i As Integer 
Dim sum As Single 
sum = f ( 0 ) 

For i = 1 To n - 2 Step 2 

sum = sum + 4 * f(i) + 2 * f(i + 1) 

Next i 

sum = sum + 4 * f (n - 1) + f (n) 

Simpl3m = h * sum / 3 
End Function 

Function fx (x) 

fx = 0.2 + 25 * x - 200 * x A 2 + 675 * x A 3 - 900 * x A 4 + 400 * x A 5 
End Function 


21.24 

Option Explicit 

Sub TestUneven() 

Dim n As Integer, i As Integer 
Dim label As String 

Dim a As Single, b As Single, h As Single 
Dim x(100) As Single, f(100) As Single 

'Enter data 
Range ("a6") .Select 
n = ActiveCell . Row 
Selection . End (xlDown) .Select 
n = ActiveCell . Row - n 

' Input data from sheet 
Range ("a6") .Select 

For i = 0 To n 

x(i) = ActiveCell . Value 
ActiveCell .Offset (0, 1). Select 
f(i) = ActiveCell . Value 
ActiveCell . Of f set ( 1 , -1). Select 
Next i 


' invoke function to determine and display integral 



MsgBox "The integral is 


& Uneven (n, x(), f ( ) ) 


End Sub 

Function Uneven (n, x, f) 

Dim k As Integer, j As Integer 

Dim h As Single, sum As Single, hf As Single 

h = x ( 1 ) - x ( 0 ) 

k = 1 

sum = 0# 

For j = 1 To n 

hf = x ( j + 1) - x ( j ) 

If Abs (h - hf) < 0.000001 Then 
If k = 3 Then 

sum = sum + Simpl3 (h, f(j -3), f(j - 2), f(j - 1)) 
k = k - 1 
Else 

k = k + 1 
End If 
Else 

If k = 1 Then 

sum = sum + Trap (h, f(j - 1), f(j)) 

Else 

If k = 2 Then 


sum = 

= sum + Simpl3 (h. 

f (j 

- 2), 

f (j 

- 1) , 

f (j) ) 

Else 







sum = 

= sum + Simp38 (h. 

f (j 

- 3), 

f (j 

- 2), 

f (j - 1) , f (j) 


End If 
k = 1 


End If 
End If 
h = hf 
Next j 

Uneven = sum 
End Function 

Function Trap(h, fO, fl) 

Trap = h * (fO + fl) / 2 
End Function 

Function Simpl3 (h, fO, fl, f 2 ) 

Simpl3 = 2 * h * (fO + 4 * fl + f2) / 6 
End Function 

Function Simp38 (h, fO, fl, f2, f 3 ) 

Simp38 = 3 * h * (fO + 3 * (fl + f2) + f 3 ) / 8 
End Function 

Function fx (x) 

fx = 0.2 + 25 * x - 200 * x A 2 + 675 * x A 3 - 900 * x A 4 + 400 * x A 5 
End Function 


21.25 (a) 


f(x 0 ) + 2£"“ /(*,) + /(*„) 

M = (b- a)[ “ ] 

2 n 


M = (11-0) 


4 + 2(4.15 + 4.6 + 5.35 + 6.4 + 7.75 + 9.4+1 1 .35 + 13.6+16.15 + 19)+ 22.15 

2(11) 


= 110.825 lb -ft 

(b) The 1/3 rule can only be applied to the first 10 panels. The trapezoidal rule can be 
applied to the 1 1 th 



,, „, r 4 + 4(4.15 + 5.35 + 7.75 + 11.35 + 16.15) + 2(4.6 + 6.4 + 9.4+ 13.6) + 19, 

M - (10 — 0)[ 1 

3(10) 

19 + 22 15 

+ (12-11) =110.825 lb -ft 

2 

(c) The 3/8 rule can only be applied to the first 9 panels and the 1/3 rule applied to the last 
2: 


M = (3- 0) [ 4 + 3(4.15 + 4.6) + 5.3 S ] + ((j _ ^ 5.35 + 3(6.4 + 7.75)49^ 


+ (9 _ 6)[ 9.4 + 3(l l .3S+ 13 .6) + i6.15 ]+(1 , _ 9)[ 1 6..5 + 4(19) + 22. ^ = , , # 
8 6 


This result is exact because we’re integrating a quadratic. The results of (a) and ( b ) are not 
exact because they include trapezoidal rule evaluations. 



Therefore, the work done is 2420 kJ. 

21.27 (a) The trapezoidal rule yields 60.425. 

(b) A parabola can be fit to the data to give 



The parabola can be integrated and evaluated from 1 to 10 to give 60.565. 




(c) A cubic can be fit to the data to give 



The cubic can be integrated and evaluated from 1 to 10 to give 60. 195. 

Although it’s not asked in the problem statement, the algorithm from Fig. 21.15b can also 
be applied (see Solution to Prob. 20.24 for code) to yield 60.258. 

21.28 (a) The following 2 equations must hold: 

f(a) = Qe' a 
m = Qe rb 

Take the natural log of Eq. 1 and solve for 

In Q = In / (a) - ra (3) 

or 

Q = Ra)e~ ra (4) 

Substituting (3) into the natural log of Eq. 2 gives 

In / (b) = In / ( a ) - ra + rb 

and solve for 

r = ln (/(a) //(b)) 
a-b 

These results can be verified for the case where Q = 3 and r = -0.5. if a = 2 and b = 4 ,fia) 
= 1.1036 and J{b) = 0.406. Substituting these values into Eqs. 6 and 4 gives 

ln(1.0136/0.406) _ Q 
2-4 

q — gln(1.1036)— (— 0.5)(2) = i I036e“ ( “°' 5)2 =3 


( 5 ) 

( 6 ) 


( 1 ) 

( 2 ) 


(b) 

1= \ h Qe rx dx= Q [e rb -e ra ) 

Ja f 

Substituting Eq. 4 

j _ [e'b — g ra J — [s’ ^ D ~ c b — tj 

r r 

Substituting Eq. 6 


1 = 


/(« ) 

WWIM 

a-b 


a~b 


V 


\ 

-1 


Simplifying 

I= (b-aif(b)-f(a)) 
In [f{b) If {a)) 


This result can be verified for the case where Q = 3 and r = -0.5. If a = 2 and b = 4 ,fa) 
1.1036 sad fijb) = 0.406. Substituting these values into the integral equation gives 

(4- 2)(0,406 -1.1036) 
ln( 0.406/ 1.1036) 

which matches the analytical integral 
/ = — - — (^-°- 5 (4) _ ^-0.5(2) j = L9353 
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22.11 

Option Explicit 

Sub RhombTestO 
Dim maxit As Integer 

Dim a As Single, b As Single, es As Single 
a = 0 
b = 0.8 
maxit = 3 
es = 0.001 

MsgBox Rhomberg(a, b, maxit, es) 

End Sub 

Function Rhomberg(a, b, maxit, es) 

Dim n As Integer, j As Integer, k As Integer, iter As Integer 
Dim i(10, 10) As Single, ea As Single 
n = 1 

i(l, 1) = TrapEq(n, a, b) 
iter = 0 
Do 

iter = iter + 1 
n = 2 A iter 

i(iter + 1, 1) = TrapEq(n, a, b) 

For k = 2 To iter + 1 
j = 2 + iter - k 

i(j, k) = (4 A (k - 1) * i(j + 1, k - 1) - i ( j , k - 1)) / (4 A (k - 1) 

- 1) 

Next k 

ea = Abs((i(l, iter + 1) - i(l, iter)) / i(l, iter + 1)) * 100 
If (iter >= maxit Or ea <= es) Then Exit Do 
Loop 

Rhomberg = i (1, iter + 1) 

End Function 

Function TrapEq(n, a, b) 

Dim i As Integer 

Dim h As Single, x As Single, sum As Single 
h = (b - a) / n 
x = a 
sum = f (x) 

For i = 1 To n - 1 
x = x + h 

sum = sum + 2 * f (x) 

Next i 


sum 


sum + f (b) 



TrapEq = (b - a) * sum / (2 * n) 
End Function 


Function f (x) 

f = 0.2 + 25 * x - 200 * x A 2 + 675 * x A 3 - 900 * x A 4 + 400 * x A 5 
End Function 


22.12 

Option Explicit 
Sub GaussQuadTest ( ) 

Dim i As Integer, j As Integer, k As Integer 

Dim a As Single, b As Single, aO As Single, al As Single, sum As Single 
Dim c (11) As Single, x(ll) As Single, j 0 ( 5 ) As Single, j 1 ( 5 ) As Single 

'set constants 

c(l) = 1#: c (2) = 0.888888889: c(3) = 0.555555556: c(4) = 0.652145155 

c (5) = 0.347854845: c(6) = 0.568888889: c(7) = 0.478628671: c(8) = 

0.236926885 

c ( 9 ) = 0.467913935: c(10) = 0.360761573: c(ll) = 0.171324492 
x ( 1 ) = 0.577350269: x(2) = 0: x(3) = 0.774596669: x(4) = 0.339981044 

x (5 ) = 0.861136312: x(6) = 0: x(7) = 0.53846931: x(8) = 0.906179846 

x (9) = 0.238619186: x(10) = 0.661209386: x(ll) = 0.932469514 
j 0 (1) = 1: j 0 (2) = 3: j 0 (3) = 4: jO (4) = 7: j 0 (5) = 9 

j 1 ( 1 ) = 1: j 1 (2 ) = 3: j 1 ( 3 ) = 5: j 1 ( 4 ) = 8: j 1 (5) = 11 

a = 0 
b = 0.8 

Sheets ("Sheetl") .Select 
Range ("al") .Select 
For i = 1 To 5 

ActiveCell .Value = GaussQuad(i, a, b, c(), x(), j0(), j 1 ( ) ) 

ActiveCell . Of f set ( 1 , 0). Select 
Next i 
End Sub 

Function GaussQuad(n, a, b, c, x, jO, jl) 

Dim k As Integer, j As Integer 
Dim aO As Single, al As Single 
Dim sum As Single 

aO = (b + a) / 2 
al = (b - a) / 2 
sum = 0 

If Int (n / 2) - n / 2# = 0 Then 
k = (n - 1) * 2 

sum = sum + c(k) * al * f(fc(x(k), aO, al)) 

End If 

For j = j 0 (n) To j 1 (n) 

sum = sum + c(j) * al * f(fc(-x(j), aO, al) ) 
sum = sum + c(j) * al * f(fc(x(j), aO, al)) 

Next j 

GaussQuad = sum 
End Function 

Function fc (xd, aO, al) 
fc = aO + al * xd 
End Function 

Function f (x) 

f = 0.2 + 25 * x - 200 * x A 2 + 675 * x A 3 - 900 * x A 4 + 400 * x A 5 
End Function 



22.13 


See solutions for Probs. 22.1, 22.2 and 22.3 for answers 


22.14 

See solutions for Probs. 22.4, 22.5 and 22.6 for answers 

22.15 

Option Explicit 
Sub TestMidPoint ( ) 

Dim i As Integer, j As Integer, d As Integer 

Dim a As Single, b As Single, h As Single, x As Single 

Dim sum As Single, ea As Single, es As Single 

Dim integral As Single, integralold As Single 

a = -0.5 
b = 0 
es = 0.01 

Range ("a5") .Select 

Sheets ("Sheetl") . Range ( "a5 : d25" ) . ClearContents 
Do 

integralold = integral 
d = 3 A i 
h = (b - a) / d 
x = a - h / 2 
sum = 0 

ActiveCell . Value = d 
ActiveCell .Offset (0, 1). Select 
ActiveCell . Value = h 
ActiveCell .Offset (0, 1). Select 
For j = 1 To d 
x = x + h 
sum = sum + f (x) 

Next j 

integral = sum * h 
i = i + 1 

ActiveCell . Value = integral 
ActiveCell .Offset (0, 1). Select 

ea = Abs (( integral - integralold) / integral) * 100 
ActiveCell . Value = ea 
ActiveCell .Offset (1, -3). Select 
If ea < es Then Exit Do 
Loop 

End Sub 

Function f (x) 

f = l/ x / '2* Exp ( - 1 / (2 * x A 2)) 

End Function 



A 

B 

C 

D 

E 

F 

1 

Prob. 22.1 






2 







3 

d 

h 

Integral 

ea(%) 


RUN 

4 

1 

0.5 

0.002683701 

100 


5 

3 

0.166667 

0.054783922 

95.1013 



6 

9 

0.055556 

0.056747258 

3.45979 



7 

27 

0.018519 

0.056995228 

0.435072 



8 

81 

0.006173 

0.057022724 

0.04822 



9 

243 

0.002058 

0.057025783 

0.005363 
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23.10 

Option Explicit 

Sub RhombTestO 
Dim maxit As Integer 

Dim a As Single, b As Single, es As Single 
Dim x As Single 
x = 0 . 5 
maxit = 3 
es = 0.001 

MsgBox RhomDiff (x, maxit, es) 

End Sub 

Function RhomDiff (x, maxit, es) 

Dim n As Integer, j As Integer, k As Integer, iter As Integer 

Dim i ( 1 0 , 10) As Single, ea As Single, del As Single, a As Single, b As Single 
n = 1 

i ( 1 , 1 ) = DyDx (x, n) 
iter = 0 

Do 

iter = iter + 1 
n = 2 A iter 

i(iter + 1, 1) = DyDx (x, n) 

For k = 2 To iter + 1 
j = 2 + iter - k 

i(j, k) = (4 A (k - 1) * i ( j + 1, k - 1) - i(j, k - 1) ) / (4 - (k - 1) - 1) 
Next k 

ea = Abs((i(l, iter + 1) - i(l, iter)) / i(l, iter + 1)) * 100 
If (iter >= maxit Or ea <= es) Then Exit Do 
Loop 

RhomDiff = i(l, iter + 1) 

End Function 

Function DyDx (x, n) 

Dim a As Single, b As Single 
a = x - x / n 
b = x + x / n 

DyDx = (f (b) - f (a) ) / (b - a) 

End Function 

Function f (x) 

f = -0.1 * x A 4 - 0.15 * x A 3 - 0.5 * x A 2 - 0.25 * x + 1.2 
End Function 

23. 1 1 The following program implements Eq. 23.9. 

Option Explicit 

Sub TestDerivUnequal ( ) 

Dim n As Integer, i As Integer 

Dim x(100) As Single, y(100) As Single, dy(100) As Single 

Range ("a5") .Select 
n = ActiveCell . Row 
Selection . End (xlDown) .Select 
n = ActiveCell . Row - n 
Range ("a5") .Select 
For i = 0 To n 

x(i) = ActiveCell . Value 
ActiveCell .Offset (0, 1). Select 
y(i) = ActiveCell . Value 



ActiveCell . Of f set ( 1 , -1). Select 
Next i 

For i = 0 To n 

dy(i) = DerivUnequal (x ( ) , y(), n, x(i)) 

Next i 

Range ("c5") .Select 
For i = 0 To n 

ActiveCell . Value = dy(i) 

ActiveCell . Of f set ( 1 , 0). Select 
Next i 
End Sub 

Function DerivUnequal (x, y, n, xx) 

Dim ii As Integer 

If xx < x ( 0 ) Or xx > x (n) Then 
DerivUnequal = "out of range" 

Else 

If xx < x(l) Then 

DerivUnequal = DyDx(xx, x(0), x(l), x(2), y(0), y(l), y(2)) 

Elself xx > x(n - 1) Then 

DerivUnequal = DyDx(xx, x(n - 2), x (n - 1), x(n), y(n - 2), y(n - 1), 
y (n) ) 

Else 

For ii = 1 To n - 2 

If xx >= x ( ii ) And xx <= x(ii + 1) Then 
If xx - x(ii - 1) < x(ii) - xx Then 

'If the unknown is closer to the lower end of the range, 

'x(ii) will be chosen as the middle point 
DerivUnequal = DyDx(xx, x(ii - 1), x(ii), x(ii + 1), y(ii - 1), 
y (ii) , y (ii + 1) ) 

Else 

'Otherwise, if the unknown is closer to the upper end, 

'x(ii+l) will be chosen as the middle point 

DerivUnequal = DyDx(xx, x(ii), x(ii + 1), x(ii + 2), y(ii), y(ii 
+ 1) , y (ii + 2) ) 

End I f 
Exit For 
End I f 
Next ii 
End I f 
End I f 

End Function 

Function DyDx(x, xO, xl, x2, yO, yl, y2) 

DyDx = yO * (2 * x - xl - x2) / (xO - xl) / (xO - x2) 

+ yl * (2 * x - xO - x2) / (xl - xO) / (xl - x2) 

+ y2 * (2 * x - xO - xl) / (x2 - xO) / (x2 - xl) 

End Function 


The result is 




An even more elegant approach is to put cubic splines through the data (recall Sec. 20.2 
and the solution for Prob. 20.10) to evaluate the derivatives. 
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23.12 

(a) Create the following M function: 

function y=f (x) 

y= 9. 8*68. 1/12. 5* (1-exp (-12 . 5/68 . l*x) ) ; 


Then implement the following MATLAB session: 

>> Q=quad ( ' f ' , 0, 10) 

Q = 

289.4351 


( b ) 

d{t) = ^ rn -\ t [\-e <clm)t \dt 
c Jo 


d{t) = 


d(t) = 


gm 


t + -e^ clm)t 


9.8(68.1) 


12.5 


io + ^ 1 £ .“ ( 12 ' 5 / 681 ) 10 -o- 68-1 


i!0 


12.5 


12.5 


289.4351 


(c) Create the following M function: 


» function y=f (x) 


» y= 9. 8*68. 1/12. 5* (1-exp (-12 .5/68 . l*x) ) ; 


Then implement the following MATLAB session: 

» x= [ 9 . 99 10.01] 

» y=f (x) 

>> d=dif f (y) . /dif f (x) 
d = 

1.5634 

(d) 

a(t) = ^—{l- e - (c/m)t ) 
c dt K 1 

a(t) = ge - (c/m » 

a{t) = 9.8e _<12 ' 5/68 ' 1>10 = -1 .56337 

23.13 (a) Create the following M function: 

function y=fn (x) 

y=l/sqrt (2*pi) *exp (- (x. A 2) / 2 ) ; 

Then implement the following MATLAB session: 

» x=-2 : .1:2; 

» y=f n (x) ; 

>> Q=quad ( ' f n ' , -1 , 1 ) 

Q = 

0 . 6827 

>> Q=quad ( ' f n ' , -2 , 2 ) 

Q = 

0 . 9545 

Thus, about 68.3% of the area under the curve falls between -1 and 1 and about 95.45% 
falls between -2 and 2. 


0 b ) 


» x=-2 : .1 :2 
» y=fn(x) 

>> d=dif f (y) . /dif f (x) 
» x=-l . 95 : .1:1.95 
>> d2=dif f (d) . /dif f (x) 
» x=-l . 9 : .1:1.9 
>> plot (x, d2 , 'o') 




Thus, inflection points ( cPyldx 1 = 0) occur at -1 and 1. 

23.14 (a) Create the following M function: 

function y=fn (x) 

y=l/sqrt (2*pi) *exp (- (x. A 2) / 2 ) ; 

Then implement the following MATLAB session: 

» x=-2 : .5:2; 

» y=f n (x) ; 

» Q=quad ( ' f n ' , -1 , 1 ) 

Q = 

0 . 6827 

» Q=quad ( ' f n ' , -2 , 2 ) 

Q = 

0 . 9545 

Thus, about 68.3% of the area under the curve falls between -1 and 1 and about 95.45% 
falls between -2 and 2. 

(b) 


» d=dif f (y) . /dif f (x) ; 
» x=-l . 75 : .5:1.75; 

» d2=dif f (d) . /dif f (x) ; 
» x=-l . 5 : .5:1.5; 

» plot (x, d2 , 'o') 




Thus, inflection points (cPy/dx 2 = 0) occur at -1 and 1 . 


23.15 

Program Integrate 
Use imsl 
Implicit None 
Integer: :irule=l 

Real : : a=-l . , b=l,errabs=0.0,errrel=0.001 
Real : : er rest, res, f 
External f 

Call QDAG (f , a,b, errabs, errrel, irule, res, errest) 
Print ' ( ' ' Computed = ' ' , F8 . 4) ' , res 
Print ' ( ' ' Error estimate = ' ' , 1PE10 . 3) ' , errest 
End Program 

Function f (x) 

Implicit None 
Real : : x , f 
Real : : pi 

Parameter (pi=3. 1415927) 
f=l/sqrt (2*pi) *exp (-x**2/2) 

End Function 


Answers : 


X = 

-1 

to 

1 : 

Computed = 

0 . 6827 

Error 

estimate = 

4 . 0 69E-0 6 

X = 

-2 

to 

2 : 

Computed = 

0 . 9545 

Error 

estimate = 

7 . 975E-06 

X = 

-3 

to 

3: 

Computed = 

0 . 9973 

Error 

estimate = 

5 . 944E-06 


23.16 MATLAB Script: 

% Prob2316 Integration program 
a=0 ; 
b=pi/2 ; 

integral=quad ( ' f f ' , a, b) 
end 



function y=ff (x) ; 
y=sin ( sin (x) ) ; 

>> prob2316 

integral = 

0 .8932 

23.17 MATLAB Script: 

%Numerical Integration of sin(t)/t = function sint(t) 

%Limits: a=0, b=2pi 

%Using the "quad" and "quadl" function for numerical integration 

%Plot of function 

t=0 .01:0.01: 2*pi; 

y=ff2 (t) ; 

plot (t, y) ; grid 

%Integration 

format long 

a=0 . 01 ; 

b=2*pi; 

Iquad=quad ( ' f f 2 ' , a, b) 

Iquadl=quadl ( ' f f 2 ' , a, b) 

function y=ff2 (t) ; 
y=sin (t) . / t; 

MATLAB execution: 

>> prob2317 
Iquad = 

1 . 40815164305082 


Iquadl = 

1 . 40815163168846 




23.18 

%Centered Finite Difference First & Second Derivatives of Order 0(dx A 2) 
%Using diff (y) 

dx=0 . 5 ; 

y= [1.4 2.1 3.3 4.7 7.1 6.4 8.8 7.2 8.9 10.7 9.8]; 
dyf=dif f (y) ; 

% First Derivative Centered FD using diff 
n=length (y) ; 
for i=l:n-2 

dydxc (i) = (dyf (i + 1) +dyf (i) ) / (2*dx) ; 

end 

%Second Derivative Centered FD using diff 
dy2dx2c=diff (dyf) / (dx*dx) ; 

fprintf (' first derivative \n'); fprintf ( ' %f \n ' , dydxc) 
fprintf (' second derivative \n'); fprintf (' %f\n ' , dy2dx2c) 


first derivative 
1 . 900000 
2 . 600000 
3.800000 
1.700000 
1.700000 
0 . 800000 
0 . 100000 
3.500000 
0 . 900000 

second derivative 
2 . 000000 
0 . 800000 
4 . 000000 
-12 . 400000 
12 .400000 
-16.000000 
13.200000 
0 . 400000 
-10 . 800000 



23.19 

% Finite Difference Approximation of slope 
% For f (x) =exp (-x) -x 
% f ' (x) =-exp ( —x ) -1 

% Centered diff. df /dx= (f (i+1 ) -f (i-1) ) /2dx + 0(dx A 2) 

% Fwd . diff. df/dx=(-f (i+2) +4f (i+1) -3f (i) ) /2dx + 0(dx A 2) 

% Bkwd . diff. df/dx= ( 3 f (i) -4f (i-1) +f ( i— 2 ) ) /2dx + 0(dx A 2) 


x=2 ; 

fx=exp (-x) -x; 
dfdx2=-exp ( -x) -1; 

%approximation 
dx=0 . 5 : -0 . 01 : .01; 
for i=l : length (dx) 

%x-values at i+-dx and h — 2dx 
xp ( i ) =x+dx ( i ) ; 
x2p (i) =x+2*dx (i) ; 
xn ( i ) =x-dx (i) ; 
x2n (i) =x-2*dx (i) ; 

%f (x) -values at in — dx and +-2dx 
fp (i) =exp (-xp (i) ) -xp (i) ; 
f2p(i)=exp(-x2p(i) ) -x2p (i) ; 
fn (i) =exp (-xn (i) ) -xn (i); 
f2n(i)=exp(-x2n(i) )-x2n(i) ; 

%Finite Diff. Approximations 
Cdfdx (i)= (fp (i) -fn (i) ) / (2*dx (i) ) ; 

Fdfdx (i) = (-f2p (i) +4*fp (i) - 3*fx) / (2*dx (i) ) ; 

Bdfdx (i) = (3*fx-4*fn (i) +f2n (i) ) / (2*dx (i) ) ; 

end 

dx0=0; 

plot (dx, Fdfdx, ' — ' , dx, Bdfdx, ' - . ' , dx, Cdfdx, ' - ' , dxO, dfdx2, ' * ' ) 
grid 

title (' Forward, Backward, and Centered Finite Difference approximation - 2nd 
Order Correct') 

xlabel (' Delta x') 
ylabel ( ' df /dx ' ) 

gtext (' Centered' ) ; gtext (' Forward ') ; gtext (' Backward ' ) 


df/dx 


Forward, Backward, and Centered Finite Difference approximation - 2nd Order Correct 
- 1.11 
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df^T / \ 
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a) 


dx ,, . x(/, + i)-x(/,_i) 7.3-5. 1 

v = — = x (t : ) = — — = 

dt 1 2h 2 


= 1.1 m/s 


d 2 x 


a= = x'(t i ) = 
dt 


x(t i+l )-2x(t i ) + x(t i _ l ) _ 7.3 -2(6.5) + 5.1 


lr 


= - 0.6 m / s 2 


1 - 


b) 


- x(t i+2 ) + 4x(6 +i ) - 3x(6 ) ^ - 8 + 4(7.3)- 3(6.5) _ Q g5 m/s 
2h 2 


- x(t i+ 3 ) + 4 x{t i+2 ) - 5 x(t M ) + 2x(t i ) 
h 2 


— 8.4 + 4(8) — 5(7.3) + 2(6.3) 


= -0.3 


m / s 


2 


c) 

v= 3x(6)-4xfe- 1 ) + x(6- 2 ) = 3(6.5)-4(5.1) + 3.4 ^ 1 2g ^ 
2/7 2 


2x(/ ; - ) - 5x(/ / _ 1 ) + 4 x(/-_ 2 ) - x(/ ; _ 3 ) _ 2(6.5)- 5(5.1) + 4(3 .4) -1.8 
h~ l 2 


777/5 


2 


23.22 


q _ _ Q ( 6+1 ) Q (6-1 ) _ 0-67 0.70 _ _q Q j ^ rad/s 

t// 2/7 2 

; -. = dr = r(6 + i)-K6-i) = 6030-5560 = 23g f t / s 
t// 2/; 2 

q _ ^"6 _ 6 (6+1) ~ 26 (6) + 6 (6-1 ) _ 0.67 -2(0.68) + 0.70 _ q r ad/s 2 
dr h 2 (l) 2 

.. _ d 2 r _ r(t i+ i) -2r(tj) + _ 6030 -2(5800) + 5560 _ fly s 2 

r ~ dt 1 lr (l) 2 = ' ! ’ 


v = 235 e r -87 


a = -8.695 e r + 50.95 e$ 


23.23 Use the same program as was developed in the solution of Prob. 23.1 1 



Prob 23.2: 












X 

f(x) 

f(x) 


0 

0 

0.500 

Run 

i 

0.7 

0.850 

2 

1.8 

1.350 


3 

3.4 

1.650 


4 

5.1 

1.550 


5 

6.5 

1.100 


6 

7.3 

0.750 


7 

8 

0.550 


8 

8.4 

0.250 








— D— f(x) -B-f(x) 


23.24 


15 


16 


19 


20 


21 


22 


23 


24 


27 



A 

B 

C 

D 

Ll_ 

ID 

1 

Prob. 23,24 




2 






3 



dvdt 

dvdt 

dvdt 

4 

t 

V 

2nd-order 

3rd-order 

4th-order 

5 

1 

5 

1.17043 

0.37778 

-0.26236 

6 

2 

6 

0.93385 

0.5476 

0.449295 

7 

3.25 

5.5 

0.638125 

0.6188 

0.791259 

8 

4.5 

7 

0.3424 

0.53325 

0.676979 

9 

6 

8.5 

-0.01247 

0,22368 

0.167215 

10 

7 

8 

-0.24905 

-0.1081 

-0.268 

11 

8 

6 

-0.48563 

-0.5402 

-0.6821 

12 

8.5 

7 

-0.60392 

-0.79387 

-0.85514 

13 

9.3 

7 

-0.79318 -1.25191 

-1.05156 

14 

10 

5 

-0.95879 

-1.70536 

-1.11298 




10 -, 
8 
6 

4 H 
2 
0 


10 ! 
8 
6 

4 -I 
2 

0 


10 


y = -0.01672 x 3 ♦ 0.16015x 2 ♦ 0.10764x + 4.81478 
R 2 = 0.67487 


10 


y~ 0.003479x 4 - 0.093893x 3 + 0.729640X 2 - 1.453877x 
6.024351 
R 2 = 0.689554 


10 
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Soft Tissue Experimental Results 




DsDe - N/m A 2 


% Raw data irput 

s=[87.8 96.6 176 263 351 571 834 1229 1624 2107 2678 3380 4258]*le+3 
©=[153 204 255 306 357 408 459 510 561 612 663 714 765]*le-3; 
de=51e-3; dte=2*de; 

% Finite Differences 

dsde(l)= (-s(3)+4*s(2)-3*s(l))/dde; % forward difference 

far i=2:12 

dsde(i) = (s(i+l)-s(i-l))/dde; % centered difference 

end 

dsde(13) = (3*s(13)-4*s(12)+s(ll))/dde; % backward difference 

plot(s,dsde, '-Ss.dsde, '+') 

title ( ' Soft Tissue ESqperimental Results ' ) 

y label ( 'stress - N/taT2 '); ylabel('DsDe - N/m72'); grid 


x . q? Soft Tissue Experimental Results 




%Raw data irput 

s=[87.8 96.6 176 263 351 571 834 1229 1624 2107 2678 3380 4258]*le+3; 
e=[153 204 255 306 357 408 459 510 561 612 663 714 765]*le-3; 

%Regreesicn analysis 
%EUinination of early data 

idx=5; % idx=starting point far data exclusion (points with subscribe above idx will be included in s) 
% With this data the range idx can be icbc=3 to icb&=8 
rp=length (s) -idx; 
far i=l:np 

sr(i)=s(idx+i); %sr = regression values far s 
end 

%Constants 
de=51e-3; dde=2*de; 

% Finite difference 

dsder(l)= (-sr(3)+4*sr(2)-3*sr(l))/dde; % forward difference 

for i=2:rp-l 

dsder (i) = (sr (i+1) -sr (i-1 ) ) /dde; % centered difference 

aid 

dsder (rp)=(3*sr(rp) -4*sr(rp-l)+sr (rp-2) )/dde; % har.toard difference 
%T. linear Fit 

cl=polyfit (sr,dsder, 1) ; 
a=cl(l); Eo=cl(2); 
sp=0:le6:5e6; 
dsdel=polyval (cl,sp) ; 
plot(sp,dsdel,sr , dsder, '*') 
title (‘Soft Tissue Experimental Results’) 
xlabelC stress - N/nt'2 •); ylabelCDsDe - N/m-2‘); 
axis((0 5e6 0 20e6]); grid; pause 

% Stress-Strain Curve Plcfc 
% Plot the analytic eKpressicn far s vs e 
% Using Bo and a 

ep=0:. 005:0. 8; % ep=curve plot value of e 

sp= (Bo/a) * (e^3 (a*ep) -1) ; % sp=curve plot value of s 

plot(ep,sp,e,s, '*') 

titleC Soft Tissue Experimaital Results ' ) ; 
xlabelC Strain - m/m‘); y label ( ' Stress - N/nf 2 ' ) 
grid; gtext(‘E(0) and a'); pause 
% Using sStar and estar 
sStar=s(10); eStar=e(10) ; 
sbar=sStar/ (exp (a*eStar) -1) ; 
sp2=sbar* (exp(a*ep) -1) ; 
plot (<3?,sp2,e,s, •*') 

titleC Soft Tissue Experimental Results'); 
xlabel ( ' Strain - rn/m* ) ; y label ( 1 Stress - N/itC2 1 ) 
grid; gtact ( 'sbar and a' ) ; 
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sbar; 
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°0 0.1 0.2 0.3 0.4 0.5 0.6 0.7 0.8 

Strain - m/m 


24.10 


Time After Injection (seel 

Semiloa Dve Concentration 

Constant 

Product 

9 

0.11 

1 

0.11 

9.5 

0.14 

2 

0.28 

10 

0.18 

2 

0.36 

10.5 

0.25 

2 

0.5 

11 

0.4 

2 

0.8 

11.5 

0.7 

2 

1.4 

12 

1.4 

2 

2.8 

12.5 

2.4 

2 

4.8 

13 

4 

2 

8 

13.5 

5.5 

2 

11 

14 

6.85 

2 

13.7 

14.5 

8 

2 

16 






15 

9 

2 

18 

15.5 

9.35 

2 

18.7 

16 

9.2 

2 

18.4 

16.5 

8.7 

2 

17.4 

17 

7.95 

2 

15.9 

17.5 

7 

2 

14 

18 

5.95 

2 

11.9 

18.5 

4.85 

2 

9.7 

19 

4.1 

2 

8.2 

19.5 

3.5 

2 

7 

20 

3 

2 

6 

20.5 

2.55 

2 

5.1 

21 

2.2 

2 

4.4 

21.5 

1.8 

2 

3.6 

22 

1.5 

2 

3 

22.5 

1.3 

2 

2.6 

23 

1.1 

2 

2.2 

23.5 

0.9 

2 

1.8 

24 

0.8 

2 

1.6 

24.5 

0.64 

2 

1.28 

25 

0.55 

2 

1.1 

25.5 

0.47 

2 

0.94 

26 

0.4 

2 

0.8 

26.5 

0.34 

2 

0.68 

27 

0.29 

2 

0.58 

27.5 

0.24 

2 

0.48 

28 

0.2 

2 

0.4 

28.5 

0.16 

2 

0.32 

29 

0.14 

2 

0.28 

29.5 

0.125 

2 

0.25 

30 

0.1 

1 

0.1 


Sum of Products 

= 

236.46 


Trapezoidal Approximation 

- 

59.115 


Cardiac Output = [56 mg/59.1 15 mg*sec/L]*60 = 5.68 L/min 


24.11 The following Excel Solver application can be used to estimate: k = 0.09915 and A 
=6.98301. 




= | =D18+H18+L18 



A 

B 

C 

D E 

F 

0 

H 

i 

j 

K 

L 

1 

k 

0.009915 










2 

A 

6.983009 










3 












4 

Patient 

A 



Patient 

B 



Patient 

C 



5 

Age 

65 




43 




80 



6 

VL 

60 




40 




30 



7 

age(yrs) 

P (mmHG) 

P-13 

Trap 

Age (yrsr) 

P (mmHG) 

P-13 

Trap 

Age (yrsr) 

P (mmHG) 

P-13 

Trap 

8 

25 

13 

0 


25 

11 

-2 


25 

13 

0 


9 

40 

15 

2 

15 

40 

30 

17 

112.5 

40 

14 

i 

7.5 

10 

50 

22 

9 

55 

41 

32 

19 

18 

50 

15 

2 

15 

11 

60 

23 

10 

95 

42 

33 

20 

19.5 

60 

17 

4 

30 

12 

65 

24 

11 

52.5 

43 

35 

22 

21 

80 

19 

6 

100 

13 













14 



Integral 

217.5 



Integral 

171 



Integral 

152.5 

15 













lb 



VLp 

60.3459 



VLp 

38.0547 



VLp 

31 .6769 

17 













18 



(VL - VLp) A 2 

0.1196 



(VL - VLp) A 2 

3.7844 



(VL - VLp) A 2 

2.8120 


60 


50 


40 


30 



30 40 


50 60 


24.12 The following Excel spreadsheet is set up to use (left) a combination of the trapezoidal and 
Simpsons rules and (right) just the trapezoidal rule: 


C20 = 1 =016*24*10 



A 

B 

c 

D 

E 

F 

G 

H 

1 

Prob 24.12 





2 






3 

Simpl /3-3/8-Trap 




Trap 



4 

Time 

Flux 

Integral 

Rule 


Time 

Flux 

Trapezoidal 

5 

0 

15 




0 

15 


6 

1 

14 




1 

14 

14.5 

7 

2 

12 

27.66667 

1/3 rule 


2 

12 

13 

8 

3 

11 




3 

11 

11.5 

9 

4 

9 




4 

9 

10 

10 

5 

8 

30 

3/8 rule 


5 

8 

8.5 

11 

10 

5 




10 

5 

32.5 

12 

15 

2.5 




15 

2.5 

18.75 

13 

20 

2 

60.9375 

3/8 rule 


20 

2 

11.25 

14 

24 

1 

6 

Trap rule 


24 

1 

6 

15 









16 


Integral 

124.6042 





111.5 

17 









18 


Average 

5.19184 




Average 

4.64583333 

19 









20 

Mass delivered 

299051 





26760 


24.13 


D6 


= , =(-B8-f8*B7-8*B5+B4)/12/(.AB-A5) 



A 

B 

C 

D 

1 

Prob. 24.13 


2 




3 

Distance 

Density 

Centered 0(h2) 

Centered 0(h4) 

4 

0 

26.035 


5 

4 

26.968 

0.038 

6 

8 

26.339 

0.16975| 

0.121270833 

7 

12 

28.326 

0.592375 

0.6293125 

8 

16 

31 .078 

0.793375 

0.830729167 

9 

20 

34.673 

0.77025 

0.819729167 

10 

24 

37.24 

0.45025 

0.433479167 

11 

28 

38.275 

0.230875 

0.217541667 

12 

32 

39.087 

0.0915 

0.0758125 

13 

36 

39.007 

0.04625 

0.042833333 

14 

40 

39.457 

0.0215 

0.031729167 

15 

44 

39.179 

-0.064625 

-0.0780625 

16 

48 

38.94 

-0.070125 

-0.086729167 

17 

52 

38.618 

0.024 

0.039708333 

18 

56 

39.132 

0.023875 

0.032291667 

19 

60 

38.809 

-0.02675 

-0.039166667 

20 

64 

38.918 

-0.002875 

0.00275 

21 

68 

38.786 

-0.01275 

-0.013875 

22 

72 

38.816 

-0.015875 

-0.0154375 

23 

76 

38.659 

-0.021625 

0.001791667 

24 

80 

38.643 

-0.167875 

-0.1645 

25 

84 

37.316 

-0.334375 

-0.305645833 

26 

88 

35.968 

-0.67325 

-0.693333333 

n 

92 

31.93 

-0.891625 

-0.9595 

28 
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28.835 

-0.70275 

-0.7328125 

29 
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26.308 

-0.3335 

30 

104 

26.167 



_H I 


-0.5 



20 


40 


60 


80 


100 


Centered 0(h2) 
Centered 0(h4) 



100 


The extremes for both cases are at 1 6 and 92 




30 

^ - 2 &0 ^ 
o 


t_* 


5 4- ; 


1 



! 6 + 40.15 
n ,o / 
><} & 11 . o. 

/? 2 * 7.3 1 


t>Z- 

nrfi* 67 

/7 3£/, 3*/ 


11520,5 7 

/ ? 3^, 97 


/? 3 ^ 5.79 




S 


/ 3 N “ */ /S " 

2 <30 / -prT" , ^ f 


3^%,V£)S 
I Dt> I .13 ( 

I 32 0 , FgS’ 

I 4 35% 007 


1926. Z 7 
1973,192 


/V 90, '^S \9 7&n<n 

\(±llo , 233 


d- M 343,14 - 13,0742 

1476. .1^1 

V - 1474,7 77 fn.olfg") 

- C‘^'72,5‘8 


1“ — C.99S .Fg ^ £ 4<?c. 98? 
<9,77 5- 


/7 = /734,7?7- 6M. US’ fa, offs) 


23 t .°\9 



24. /5~ Uaj. 5 

3o 

o 

I = 0.73^2^ (t<W.7S72+ 10*32. ?i) 
+" °3 7 SO 2£7 (itoi .H2-h t'Un.m') 
± 0S61MB1 ( I2flf,li) 

- 11320.41 


3o 


100 


e?V./£ 

T/Uj[&3piJL*J EjJcjI ^cv€g 
JT = (3 0-eOjo +--2 (££4z +57.4 8 

4-3<?.f4 -4 24,03 +- /t.r?) 

f Id , 3 lJ 

__ 

= 1070.033 

S !~i> fail, 

t = (3D- fi) [c>4 4 3*72 


- 0a3M?H ( 3^312^4- 373. 

4 d.H7?6zn ( !M1 , 76>& + 313 .Ml) 

f- 0 . 3 ^ ^ 99 ^^ ( tzi.n.se') 

- H2I.26.5~ 

k~ I43Z0.4I h^.'itoS = 13,03$ 

V — ( 13 , 63^/3 - m^o.izs 

T = 644o, \V5 jd,W5- - (cH12.5^ 

ff - I4 ?i,«45 - W2, SU (0. 0775) 


4 /4,5r)f 2(5 7, W 24,5 5) 
4- 10,7,7 J 

/<? 

- 1131, 01S 

I -C3o-o)fof l(t832. 4~ 
*13% 4- 24,22 + /4,sV) 

f 2 (l%$q)+ 10 , hi] 

16 


837, 34k 


1111.381 



■24-.I7 


W dk A = 4 j (T 6 aAJ 

r ® +■ 2 ( -+-M-+ 4 4 3 (4} 4- 


= S'i-io 

UJaA A^Z ) (jn^f 12 mA) 

x - 7n[ 0+-2(7>8 + 2+4 + V-4&44-f3,& 

L + 3,4 +2.0 4-0 J 

— 

- (ol.!. 

Wycfcf/l. A^2 j (^Mr'X Is Piling) 

I — ■ 2. 0 0 4- 4 48+-Y-/-<£>-f3,^‘f2i4) 

3, tj) 4- O 7 

"SO 

•= (oL.t) 

<?4* IB 


2<JTO 

27SP 

22® 

3/£P 


3250 

^60 

32?z? 

2S<£> 

4>(bO 

3ff» 

3<5DD 

32® 


3 7® 

11 OO 

$0® 

'Lb&D 

'dim 

2$ZS 

4czp 

PfT2? 

4220 

<243 <2 

[/IA£ S^v'.vjCi /3> 

R^ii. firw. 

'4-(7'la7 1 "? A^^rr,' 

->,v To- 

^/gT RtdU. crr\ 

3 us< vt» 


1= (k <»-£>[. 

04 4 (tOO + 45(0 

+ IU&+ -2lBZ> + 2t®+3iSOt32<TO 


0 

40Z) 

top 
ff0D 
\OTJ0 
1 1-DO 
14(70 
Up OP 


lfo$) OnksKodjL (w&E) 


O 

t >a> 
$%o 

1 100 

IkCO 

!°\SV 

Piro 

2350 

2 too 


4- 305Z>+ 71n)4 z(?SC>+l\GD 
+ UflD-f 23(5) 4- 24L90 432O1D 
~^ 3|R) -12&5& j. 2Ld O~] 

l 5^ 

- 1^17333,33 


353$~) + » C 1° J 

= ISI3SSD 
loro! — % 432,323 




H'H~h 


UAL CorrJrtpn^tc^ 

^ iUv/ 3 -t/n ..jOstrrt-^a 

l\Mij .As*. tMdb oJtJL^ 



T, = fa-o)[ iiW+J = £77 



!\jcrtt CtnjJl die*} oua£. ST^o V# 


fc-b-li, u>4L cii 




X ■= 10.975 



x i - (t-t,5)( ^jr)=- u. 2 S 

Is= (l 2 *-/<>)( iLt20^ 27-5 

J“ t = ('4- 12.5) ( 7 ^~) =. K, 2 5 

T 7 ^f/4-lfJ 



^-/k)(V*(>2+ JD+II +■ 

4- 2 

(22+^ + s) 





=- / 

'07.33. 


= 

3)5*75- 

ccv\x> hr 
mm 

C = e 

215*75 doi } 

!X y ititfo 


unit 

1 

c -. 

7>I0H76' coas/Uouj 

34, to 



L_ 

Fiji) 

JFfi) 

0 

o 

6 

30 

350 

I0 } 5ao 

bO 

thus 

6 0,oco 

ID 

IS6o 

>35,000 

120 

<2f> &0 

3 IZ )0 oo 

ISO 

3 Ooo 

450)000 

I to 

3300 

514,000 

2)0 

3 soo 

115,000 

MO 

?(om 

SLH.no 


'Yl <.rm. fi "3/V P \aJLh. 




Uil 4 4 'jf 

f?U$j2 

X = (2^0-0) [°-+ 4 ( |0 )SOO+ IlS'fiQO + qSOOOO 



X" (feb- 1() j( ® 4- 4 (6*37 

4-/l|JI? + <T,3f)+ 2(l0-5?44 (3. 72 ) 

+ o 1] X |0 8 

- _ — 

it) 

- S.F125-3 x 10 


=- 73,404,oc>o 

X - (2 4o-^[° 44 ( 350 + 15 ^+ 30 ^ + 15 ^ 



X — 70i,000 

J - ^3;464 ; poo = /4+/. t / < ?io ^ 
^g 1 , 000 


d = 7, 5^273 A/Q _ 21,17 
;?. S4S"3^ x(o /M 


2 4.11- 

I ^lA/h ~ lz 3-3 moi\+h<, 
-jUXp &^o4zu/*-£- ^brur o\j 

I ■Xffl/yv' <2*^ 3 / ,2o 

^J4»rs. , thoX as ^ 


U4.Z1 




F !tnX> ( 0^0 

- 3ioX) 

3/ +27 







■z. 

fx. 

iXX) 


2^)£lal. 



=• 2.7 

(oQ 

4® 

0 

O 


r/tpo 


SO 

110 

LU2 VID 

f, 3/ X I0 8 

0 

Z<=f 


4 0 

115 

3.43 x/fl 7 

1-372 XI o 9 

is 

3 / 


30 

lieQ 

4-7o+ Xlo 7 

/.4Hz xX 

45 - 

37 


20 

130 

£,1*12 XlQ 

/,i?«V X/o^ 

75 

20 


10 

130 

£,T7 x io 7 

<1,37 X/0 8 

lOf 

//? 


0 

IZ 2- 

7' nu < (o 7 

0 

11*9 

/<2Z 



Z57 20 

C-7,n3i£. 4- 4(c.r7 + 4.-?£>4- + l.?62) 227 2/ 

+ 2 (5~, 712- •*- 3.43) + Q H A IP 7 315 2 3 

12 345 27 


— 2 . F4 731 X /£ A/ 


34£> 2f 




r = 


+ 2^1 

^ J - 4b0 


4 

Oo?~is)[~ 

42(>74So)-HI<?J 

5766 

+ 

(us-lbs) [ 

i0 ^ Mq ]- two 

4- 

UST-|LS)[_ 

70 4-10X7 

2- J ~ S’ 

Wo 

4- 

( 34S-2SS)[ 

<7o + 2 (" 21 + 23)+ rfL 
& J 

■ 2.02ST 

4- 

(&0- 3fe) [_ 

0^ + Z7 

4Zb 



Tbrai — 

3077 5" 


30,775- Jl 3 tLO%{*tortH.ri<oS - (..55IL x/o 





i 

^ / z (k 3 cfct 

o 


- 0 , 23642£7 (a 02 X)(o^nZ 7 

-h $'08038712. *) +■ 0,4766287 

(o,s S<n&W+ L 2 M 2 vi) 

4- (3- s&szsq ( h trw&b) 

- I.ISHOJ 


k 

M 3 H’ze^ASflfiUr 

^ 7 'LApllsffxJbJ ImAq_ 

- Gl- 0 ^- 1 " 2 C/,^M 24 ^f 
o 


^ r«y s = Alins' 
• 2**2 6 

J- f'/4-o)& + ^ (i-'ztews- 


/* = 
<2 4 . 27 / 


+-7.£0 + 8 ig I -t-g ,00 +■ 8 iSl + ? <° 5 i , t - 7732 £ ?-f- r ?‘SS7%(c>Er 

4- 7.0 L | U.Tn-fg.&f fl. 

2 ? f* 3 .UWS+ Q, 3 U 0 S 3 h 

- 71 coiled 


18 xO,45~X 150000 — s%SD$0 cJt 
Llki 3 psu%Jr 

^cx -fVo)=: dTJ 
^X 


±l(lA a Ml 3 + 7 Am 7 £> + 
5 , **313 1 ■+■ hite^k) 
+■0 

4 bO 



= /.W 2 7 fr 

1.100019 3 






0fi£-f o 


o a.stfZtz Mya?6y 

l.8g?7 (*y l >17*1019 l AslSfo 

\4SU?lS I >7 bolts 

\ '15*1759 


X- 

^A,s - /, 349 9^ 3? 6 


34.25 


t_ 

X 

^ x /lk 

Vu 

o 

O 

1.3 

6 

0.1 

(3,/5 

1,5 

4 

0.2 

d,3o 

2,o 

8 

3,3 

0- 5S 

3.35 

W 

3,? 

0. ? 

3.31? 

13-5 

0.7 

1'? 

7 4 625" 

so.r 

• 0',\ 

/l ^o;= 

-0.2 

4- 4(o.l?) - 3(o) 




2(0,1) 


55. 

1.5 




<H-19 

to 

/&)• M) *u- 

o 

X - (66-o)^' 3/3 m f 4 (s.Z7 X io H 3.63 .x/o 

+ i,n n&n i,ixid < ‘+ moo] h 2 (s,iz no 

^ IMb f3, 12 y I o+. 3,i7Xtf)+ oj 
30 

- /-57W//^ 
f = 3.42? XID 


ai.30 


i (flil)-=L 2(1^) - i(D,$) -h 0,55 
2 ( 0 . 2 ) 

- 7.6 25* 



0.3, -^,g~ 


^ ^^^3- Q,z -g.y 

fO- 0.2^C 0( 7 ,_o,s) 

4- 0>i 

( (0.5-6,27) 

= <7.35 



FftO 

9(i) 

^(4)C&o 9 (h) 

o 

0 

OrS 

o 

r 

£.5 

l.H 

1. to Hist. 

10 

II 

a; IS- 

v. OH 857% 

1? 

13. S 

C’ -Io 

s.3Hnss~ 

20 

14 

13 

iohhhsH 

75 

\zs 

‘■H7 

'./333fr 

3o 

1 

I, So 

f .43 Ct>3S 

X^ 

{3o-O^H4-(l.lOHl?t>-f^'^nSS' 


4 - t./3l39f)+2(f.O H?S7S + 
2.1 HOW )/• 0. 0366 35 

/e 




r- ui.13^ 


_T - 33.1*Ul+ 31,5/317 


Vs) (/.?(£ - O.O^'/ 7 ) 

o 

(otf + O.llS oi- 0,001 5U 0,0002. X ) iy 

1= (lo-e) |©+2(zr)/7-/-2, 2*4732 ■/■J./tZa**) 

r 348 032-1] 

9 

I - S4 ,0?8S3 

Si^Lfrvife i tyj 

,L f 5(,,om3> 

$ C2.gz ?s+ 

iO> C+ - ++2L+ 


V J_ 

13.10 + 2% 

k+.isn 3 

iS,03+£/ 
LS , 6++(3 


2‘h35' F«l 

t 

A - 5 


J" 4 jt -bt" 


v , 3 X 


W 

(5 .015/1 
(,5.0+731 


J^4 _ 3^3 

7(7uajl — ^"2 ■ (> 17 

VM = 2cd(T2+3C.'^=: §“?£><DO 


6c. =• -0,3^ 

-31,20^ 53 , 2 ^ 71 ^ 65,3 1 2 ^ Vf.lDbZl 

3o,C H(7 &q, 5^/22- 107.10+42 

<b<5',0l7l( 

<£2 • g'29’5‘7 




^4.3? 


24.3 >| O OJUL 0 h* olXX 

£>trv»a.to C£--v v,iA CPli" 2 ' ■^rLuTOAsd 
a^Jl Jrn^cM '^oslJI oLo|-|^a Z/V'-cSuo 
^r\ ^ Cj l C*^-\ JsAytt ~^j)CrtA it$ 


, \ D +4o 

_r= (0.02-0) — -b 


40 i- sl’S 


i 

X 

dr /X 

r-25 

. 

0 

% 

- /o<4 

(?5 


5" 

HI 

-£T.6 

2f.l 

X- 

10 

31$ 

“i.2 

21 


to 

78,4 

— 0.2 

3,4 


20 

20,2 

-0.3 

1,2 

24, IS 

as 

155 

- 0,02. 

OH 



\ 0+40 , \ 

■6) ~y -i- (o.os-Q.oi-j 

(o ns-ofis) jo 7 ‘> + 4-[ ef3 +&) 

±±(SZ)+£0J 


24,1$ Q- j 2 (i-y») (2Ttr) Xr 


f (0)= - 31,8 f 4/4%^-jft o) 

10 


f(Z5)= o(45&)- 4(7C,^) 4Z8,4 
10 

=- -0.02. 


T'-iJ 


4X -o.m-o.u.Psft^zO 

v M 


- 0'iu 



(X /t^rtL^tv 

THjX-*-^ Rw-$JL. XJUfo^SUX j2^Xjyyr,^L^Jl^J 
census cr^ yAJ^c3Lt&-^ , &xA^ 

Za tiLA^yS. bt-CySUy^ (f^ 'tkjL 

/^CW ^ 6&U - 

t&ll UK Ai&J. ^jJXoAi^y 

|tfi ^rrX- 0*scufUs£yQ~, 


(9 

ih n 53 

/&.Q727 
/$■ 2054 
lt /?2S* 
It 5510 
It 1310 

i% no 

i 7 . *i?m 


OO^L^JllX^Jtc^ry^ 

2 . 

f 




34-. 3Q 

' o 

lull T fUL^> tfjJU-. 


Q3S 

Fclx 4- J Fdt 


o 


o,Z5 

0\-2.(c>‘t)\ J ’0,01&4 O ’ M( = \-0‘0<e 3 


N r o+-2lO'Oi J ' 0 ‘ DiS +^ ,u 10 
J- (D,35-<5j|_ <9,082 4-0,10 - *• Q'\ \\ 

' Ff 


L 


-I* (ottsr-Ddi) 

— 0,036 7 

M^.Q 


r 6-134 o 


2 


,2g~j 


t_ 

JL 

ay/^*i r 

Ar[jd 

0 

/Ff 

7/ ,7/ 

- 50 , rj 

<9,51 

l%y 

5 3,5a 

- 2 t.M 

/,03 

2 p°l 


- 11.40 

/•7V 

150 

37, Z5 

- 2fc,5? 

2,3k 

2 (e 1 

14,65 

- 24,50 

32? 

272 

4 ,57 

-»0,?| 

3^2 

^I'i 

0,30 

- 10 , u 

TW ailTSarO 0/Lfl. 

(^SU^Q^hj 



e : ^ 23,4 

Aq.9/ 


U&L 10 3 ruL^^n-^i? 

J"Udlx %o <^^rJo\w*_XX 

d = 31004- 12504- If^Zo 
~ 0^2-70 

24-^2 

^ 7 /La-^g fCcdbu 

;t=C?d-4[o-^ (I3?,?I+-2*Z.7I 

+- 455 , 21 +^sr, 34 + ^ 70 - 73 , 
+- // 73, 1-/ ’J 

’ ~~ I "2. 

- \5on,$ 

C Sim^gru ^ 

x - m&.if 

& pgy^ fauiA* QtuJ) 

x — /?73?, 3 <? 

A h* £W4eA^-- 
<7io?.« m??,^ 

15432.4? HtWZ'to I 

iriMJz mw.ft 

/4?37, ? 


£*- -6,363j« 

°/o 


\0 


20 


30 


d~ ty ) 6 ^ 7 - 5t)4t4 


/© 


•Z-O 



24.43 



Finding roots in Matlab: 

a= [ -0 . 0005 -0.3154 472.24]; 
roots (a) 

b= [7E-05 -0.3918 372.41]; 

roots (b) 

c= [ -0 . 0004 -0.0947 286.21]; 
roots (c) 

d= [ - 0 . 0 0 0 3 -0.0404 256.9] ; 
roots (d) 

e=[ -0.0003 -0.0491 238.62]; 
roots (e) 

Roots: 706.3, 1213.7, 735.75, 860.5, 813.77 

Using the AVERAGE command in Excel, the ultimate strength, O u , was 866 MPa. 
Plot with a L1 included: 




It can be seen from the higher R 2 values that the polynomial fit including the ultimate 
stress, O u , is more accurate than the fit without including O u . 


.44 


This problem was solved using Excel. 



The 

following values were calculated beginning with the ninth data point of the series. 

Mean = 0.045305 

Standard Deviation = 0.003716 



24.45 This problem was solved using Excel. 

a) Find the equation for velocity using Excel. 



R 

Q = Jin r h dr 
o 

Integrate according to the equation above, using R = 8 in. 

Q = 2.12 ft 3 / s 


b) 


n — 1 


n— 2 


fix o)+4 Y,fi x i)+ 2 £/(*,) + /(*„) 


/ = (b—a)- 


(=1,3,5 


j =2.4,6 


3 H 


/~ 27 t * 8 0 * 3 + 4 ( 1 * 2 ' 92 + 3 * 2 ' 61 + 5 * 1 - 78 + 7 * 0 - 67 ) +2 ( 2 * 2 - 78 + 4 * 2 - 36 + 6 * 1 - 4 ) + 8 * 0 
71 ^ 3*8 


/= 2.097 ft 3 /s 


c) % error = 


2.097-2.12 

*100 

2.12 


1 . 10 % 


24.46 a) Find the equation for velocity using Excel. 



6 


5 


4 


2 



1 


0 -I T T T T T 

0 1 2 rad i$s , r 4 5 6 


r 2 

Q = J 2tc r u dr 

n 


To find the volume flow rate in the region around the plug, integrate according to the 
equation above, using n = 1 in. and r 2 = 6 in. 

0 = 2.073 ft 1 * 3 /s 

To find the volume flow rate of the plug, use Q 2 = u c A c 

0 = 0.1091 ff/s 

Q = Qi+ 0 = 2.182 ft 3 /s 

Q = 2.182 ft 3 /s 

b) Integral for the outer region: 

/(*<,) + 4 £/'0.) + 2 £/(^)+/(x„) 

1 = (b-d) 

3 n 

/~27 t *( 5 ) 1 * 5+4 ( 2 * 4 - 62 + 4 * 3 - 42 ) +2 ( 3 * 4 - 01+5 * 1 - 69 ) + 0 * 6 


/= 2.002 ft 3 / s 



Inner region Q2 = 0.1091 ft 3 /s remains the same. 

Therefore, the volume flow rate Q = 2.111 ft 3 /s. 


c) % error = 


2.111-2.182 

2.111 


3.36% 


24.47 The following Excel worksheet solves the problem. Note that the derivative is calculated 
with a centered difference, 

dV _ _ P450 k ~ P350K 
dT 100A 


F4 _^| = =C4-450*E4 



A 

B 

c 

D 

E 

F 

s 

H 

1 

Prob. 24.47 







2 









3 

P.atm 

T=350K 

T=400K 

T=450K 

dVdT 

(V - T tdV/dPo) 

Intearal 


4 

0.1 

220 

250 

282.5 

0.625 

-31.25 



5 

5 

4.1 

4.7 

5.23 

0.0113 

-0.385 

-77.5058 

Trap 

6 

10 

2.2 

2.5 

2.7 

0.005 

0.25 

-0.3375 

Trap 

7 

20 

1.35 

1.49 

1.55 

0.002 

0.59 

4.2 

Trap 

8 

25 

1.1 

1.2 

1.24 

0.0014 

0.57 



9 

30 

0.9 

0.99 

1.03 

0.0013 

0.405 

5.458333 

Simpl/3 

10 

40 

0.68 

0.75 

0.78 

0.001 

0.3 

3.525 

Trap 

11 

45 

0.61 

0.675 

0.7 

0.0009 

0.27 

1.425 

Trap 

12 

50 

0.54 

0.6 

0.62 

0.0008 

0.24 

1.275 

Trap 

13 
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Total Integral = 

-61.9599 



24.48 A single application of the trapezoidal rule yields: 


I = (22- 2) 


12.2 + 1.11 
2 


133.1 


A 2-segment trapezoidal rule gives 


/ = ( 22 - 2) 12 - 2 + 2(2 - Q4) + U1 
4 


86.95 


A 4-segment trapezoidal rule gives 


I = (22- 2) 


12.2 + 2(3 .49 + 2.04 + 1.44) + 1.11 
8 


68.125 


Because we do not know the true value, it it would seem impossible to estimate the error. 
However, we can try to fit different order polynomials to see if we can get a decent fit to 
the data. This yields the surprising result that a 4 th -order polynomial results in almost a 
perfect fit. For example, using the Excel trend line gives: 



This can be integrated analytically to give 61.20365. Note that the same result would result 
from using Boole’s rule, Rhomberg integration or Gauss quadrature. 1 

Therefore, we can estimate the errors as 


/ = 


61.20365-133.1 

61.20365 


x 100% = 117.47% 


61.20365-86.95 

61.20365 


x 100% = 42.07% 


/ = 


61.20365-68.125 

61.20365 


x 100% = 11.31% 


The ratio of these is 117.47:42.07:11.31 = 10.4:3.7:1. Thus it approximates the quartering 
of the error that we would expect according to Eq. 21.13. 

24.49 ( b ) This problem can be solved in a number of ways. One approach is to set up Excel with 
a series of equally-spaced x values from 0 to 100. Then one of the formulas described in 
this Part of the book can be used to numerically compute the derivative. For example, I 
used x values with an interval of 1 and Eq. 23.9. The resulting plot of the function and its 
derivative is 


1 There might be a slight discrepancy due to roundoff. 



(b) Inspection of this plot indicates that the maximum derivative occurs at about a diameter 
of 13.3. 

(c) The function to be integrated looks like 



This can be integrated from 1 to a high number using any of the methods provided in this 
book. For example, the Trapezoidal rule can be used to integrate from 1 to 100, 1 to 200 
and 1 to 300 using h= 1 . The results are: 


h 

/ 

100 

0.073599883 

200 

0.073632607 

300 

0.073632609 


Thus, the integral seems to be converging to a value of 0.073633. S m can be computed as 
6x0.073633 = 0.4418. 


CHAPTER 28 


28. 1 The solution with the 2 nd -order RK (Heun without corrector) can be laid out as 
For the 4 th -order RK, the solution is 

A plot of both solutions along with the analytical result is displayed below: 



28.2 The mass-balance equations can be written as 


— = -0.14c, + 0.04c, 
dt 

dCl = 0.2c, - 0.2 c, 
dt 

— = 0.025c, - 0275c, 
dt 

— = 0.1 125c 3 - 0.175c 4 + 0.025c 5 
dt 

— = 0.03c, + 0.03c 2 - 0.06c 5 
dt 

Selected solution results (Euler’s method) are displayed below, along with a plot of the results. 



cl c2 c3 c4 — - c5 


Finally, MATLAB can be used to determine the eigenvalues and eigenvectors: 





» a= [ . 14 -.04 0 0 0 ; - . 2 .2 0 0 0;0 -.025 .275 0 0;0 0 -.1125 .175 -.025;-. 03 
-.03 0 0 .06] 


0 . 1400 

-0.0400 

0 

0 

0 

-0.2000 

0.2000 

0 

0 

0 

0 

-0.0250 

0.2750 

0 

0 

0 

0 

-0 . 1125 

0 . 1750 

-0.0250 

-0.0300 

-0.0300 

0 

0 

0.0600 

[v, d] =eig (a) 





v = 


0 

0 

0 

-0.1836 

0.0826 

0 

0 

0 

-0.2954 

-0.2567 

0 

0 . 6644 

0 

-0.0370 

-0.6021 

1.0000 

-0 .7474 

0.2124 

0.1890 

0.7510 

0 

0 

0 . 9772 

0.9176 

0.0256 


d = 


0 . 1750 

0 

0 

0 

0 

0 

0.2750 

0 

0 

0 

0 

0 

0.0600 

0 

0 

0 

0 

0 

0.0757 

0 

0 

0 

0 

0 

0.2643 


28.3 Substituting the parameters into the differential equation gives 


lie o 

— =20-0.1c-0.1c 2 
dt 


The mid-point method can be applied with the result: 



A 

B 

c 

D 

E 

F 

G | H | 1 | J 

1 

t 

c 




15 


2 

0 

0 


Run 



3 

0.5 

8.5 





4 

1 

1 1 .33498 




10 


5 

1.5 

12.45029 





6 

2 

12.99069 






7 

2.5 

13.27729 




5 


8 

3 

13.43624 






9 

3.5 

13.52653 






10 

4 

13.57851 




0 

^ 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 » 1 1 1 1 1 1 1 1 

11 

4.5 

13.60866 




c 

1 2 3 4 5 

12 

5 

13.62623 






The results are approaching a value of 13.6351 


Challenge question: 


The steady state form (i.e., dddt = 0) of the equation is 0 = 200 -c-c 2 > which can be solved 
for 13.65097141 and -14.65097141. Thus, there is a negative root. 


If we put in the initial y value as -14.65097 1 (or higher precision, the solution will stay at the 
negative root. However, if we pick a value that is slightly higher (a per machine precision), it 
will gravitate towards the positive root. For example if we use -14.65097 



Conversely, if we use a slightly lower value, it will go unstable 



28.4 The first steps of the solution are shown below along with a plot. Notice that the a value of the 
inflow concentration at the end of the interval ( cin-end) is required to calculate the k 2 ’s correctly. 





ap = °- 5 kg/min 


¥i„ = 10 kg/min 



= 10 kg/min 



s in = 8 g/k§ 

M 0 = 
s o = 

1000 kg 
8 g/kg 



(a) The mass of water in the tank can be modeled with a simple mass balance 
= 4out - tfevap = 10 - 10 - 0.5 = -0.5 


With the initial condition that M= 1000 at t = 0, this equation can be integrated to yield, 


M= 1000 -0.5? 


Thus, the time to empty the tank (M= 0) can be calculated as t= 1000/0.5 = 2000 minutes. 

(. b ) The concentration in the tank over this period can be computed in several ways. The simplest 
is to compute the mass of salt in the tank over time by solving the following differential 
equation: 

dm 

dt 

where m = the mass of salt in the tank. The salt concentration in the tank, s, is the ratio of the 
mass of salt to the mass of water 

m m 

S ~ M~ 1000-0.5/ 

The first few steps of the solution of this ODE with Euler’s method is tabulated below. In 
addition, a graph of the entire solution is also displayed. 



Recognize that a singularity occurs at t = 2000, because the tank would be totally empty at this 
point. 

28.6 A heat balance for the sphere can be written as 


dH 

dt 


= hA(T a - T) 


The heat gain can be transformed into a volume loss by considering the latent heat of fusion. 
Thus, 


dV 

dt 


hA 
P L f 


(T a -T) 


( 1 ) 


where p = density = 1 kg/m 3 and Lf= latent heat of fusion = 333 kJ/kg. The volume and area of a 
sphere are computed by 

4 l 9 

V = —nr A = 4nr 

3 

( 2 ) 


These can be combined with (1) to yield, 




2/3 


(T a ~T) 


dV 



dt P L r 


This equation can be integrated along with the initial condition, 
V 0 = ^7t (0.05) 3 = 0.000524 m 3 


to yield the resulting volume as a function of time. 



This result can be converted into diameter using (2) 



28.7 The system for this problem is stiff. Thus, the use of a simple explicit Runge-Kutta scheme 
would involve using a very small time step in order to maintain a stable solution. A solver 
designed for stiff systems was used to generate the solution shown below. Two views of the 
solution are given. The first is for the entire solution domain. 



0 10 20 Cc 30 


In addition, we can enlarge the initial part of the solution to illustrate the fast transients that 
occur as the solution moves from its initial conditions to its dominant trajectories. 




28.8 Several methods could be used to obtain a solution for this problem (e.g., finite-difference, 
shooting method, finite-element). The finite-difference approach is straightforward: 

d A '~\ ~ 2A ' + A,+1 - kA i =0 
Ax 2 


Substituting parameter values and collecting terms gives 


-1x10 6 4 _j +(2 x 10 6 + 4x 10 6 Ax 2 )- 1 x 10 6 A i+1 =0 


Using a Ax = 0.2 cm this equation can be written for all the interior nodes. The resulting linear 
system can be solved with an approach like the Gauss-Seidel method. The following table and 
graph summarize the results. 



dP b „ y4sincot 

— = P + 

dt a a 

Substituting the parameters, it becomes 


— = sint - P 
dt 

The following Matlab script uses Euler’s method to solve the problem. 

dt=0 .05; 
max=5 ; 
n=max/dt+l ; 
t=zeros (1, n) ; 
p=zeros ( 1 , n) ; 
t (1) =0; 
p (1) =90; 
for i=l:n 

p (i + 1) =p (i) +dydt (t (i) ,p (i) ) *dt; 
t (i+1) =t (i) +dt; 

end 


plot (t,p) 
grid 

xlabel ( ' Time-sec ' ) 
ylabel ( ' Pressure-mmHg ' ) 
title (' Pressure vs Time') 
zoom 

function s=dydt(t,p); 

A=l; 
w=l ; 

s=A*sin (w*t) -p; 



0 1 2 3 4 5 6 

Time-sec 


28.10 Excel can be used to compute the basic results. As can be seen, the person died 1.13 hrs prior to 
being discovered. The non-self-starting Heun yielded the following time series of temperature: 



B11 

zJ 

= =- 1 /K*LN ((Tern p d-Te m p a)/(Tem pO-Te m pa)) 


A 

B 

c 

D 

E 

F 

G 

1 

Prob. 28.10 






2 








3 

Tempa 

68 

oF 





4 

TempO 

85 

oF 





5 

11 

2 

hr 





6 

Tempi 

74 

oF 





7 

Tempd 

98.6 

oF 





8 








9 

K 

0.520727 

/hr 





10 








11 

Id 

-1.128781 

hr 







28.1 1 The classical 4 th order RK method yields 



A 

B 

C 

D 

E 

F 

G 

H 

1 

t 

CA1 

CB1 

CA2 

CB2 


RUN 


2 

0 

0 

0 

0 

0 



3 

0.5 

0.928609 

0.023016 

0.045281 

0.00075 




4 

1 

1 .727872 

0.08482 

0.164179 

0.00546 




5 

1.5 

2.415803 

0.176013 

0.335308 

0.016718 




6 

2 

3.007912 

0.288885 

0.541809 

0.035962 




7 

2.5 

3.517545 

0.417146 

0.770508 

0.063783 




8 

3 

3.956191 

0.55569 

1.011215 

0.100165 




9 

3.5 

4.333736 

0.700407 

1.256147 

0.144668 




10 

4 

4.658694 

0.848013 

1 .499457 

0.19657 




11 

4.5 

4.938387 

0.995913 

1 .736845 

0.254981 




12 

5 

5.179121 

1.142081 

1.965239 

0.318922 




13 

5.5 

5.386324 

1.284962 

2.18254 

0.387384 




14 

6 

5.564665 

1.42339 

2.387406 

0.459374 




1b 

6.5 

5.718164 

1.556515 

2.579086 

0.533944 




16 

7 

5.850283 

1 .683745 

2.757278 

0.610212 




17 

7,5 

5.963998 

1.804698 

2.922021 

0.687375 




18 

8 

6.061873 

1.919159 

3.073603 

0.764714 




19 

8.5 

6.146116 

2.027046 

3.212496 

0.841596 




20 

9 

6.218624 

2.128384 

3.339293 

0.917476 




21 

9.5 

6.281033 

2.223279 

3.454669 

0.991889 




22 

10 

6.334748 

2.311897 

3.559345 

1 .064449 






CA1 


CB1 


CA2 


-CB2 


28. 12 The classical 4 th order RK method yields 



1.2 

1 

0.8 

0.6 

0.4 

0.2 

0 


0 12 3 4 


28.13 (a) The first few steps of Euler’s method are shown in the following table 


A plot of the entire simulation is shown below: 



0 5 10 15 20 


Notice that because the Euler method is lower order, the peaks are increasing, rather than 
repeating in a stable manner as time progresses. This result is reinforced when a state-space plot 
of the calculation is displayed. 



(b) The first few steps of the Heun method is shown in the following table 
A plot of the entire simulation is shown below: 



Notice that in contrast to the Euler method, the peaks are stable manner as time progresses. This 
result is also reinforced when a state-space plot of the calculation is displayed. 



(c) The first few steps of the 4 th -order RK method is shown in the following table 

The results are quite close to those obtained with the Heun method in part ( b ). In fact, both the 
time series and state-space plots are indistinguishable from each other. 

28.14 Using the step size of 0.1, (a) and (b) both give unstable results. The 4 ,h -order RK method 
yields a stable solution. The first few values are shown in the following table. A plot of the 
result for x is also shown below. Notice how after about t = 6, this solution diverges from the 
double precision version in Fig. 28.9. 





28.15 The second-order equation can be reexpressed as a pair of first-order equations, 

dy 


= w 
dz 

dw f (T \ 2 

dz 2 El 

We used Euler’s method with h = 1 to obtain the solution: 



28.16 The second-order equation can be reexpressed as a pair of first-order equations, 

dy dw 200 ze _2 " /30 2 

— = w — = (L - z) 

dz dz (5 + z)2EI 


We used Euler’s method with h = 1 to obtain the solution: 




z 



28. 17 This problem was solved using the Excel spreadsheet in a fashion similar to the last example in 
Sec. 28.1. We set up Euler’s method to solve the 3 ODEs using guesses for the diffusion 
coefficients. Then we formed a column containing the squared residuals between our 
predictions and the measured values. Adjusting the diffusion coefficients with the Solver tool 
minimized the sum of the squares. At first, we assumed that the diffusion coefficients were 
zero. For this case the Solver did not converge on a credible answer. We then made guesses of 
lxlO 7 for both. This magnitude was based on the fact that the volumes were of this order of 
magnitude. The resulting simulation did not fit the data very well, but was much better than 
when we had guessed zero. When we used Solver, it converged on En = 9.22x1 0 5 and Eh = 
2.19xl0 6 which corresponded to a sum of the squares of residuals of 2.007. Some of the Euler 
calculations are displayed below along with a plot of the fit. 



It should be noted that we made up the “measurements” for this problem using the 4 th -order RK 
method with values for diffusive mixing of En = 1x10 s and En = 2x10 s . We then used a random 
number generator to add some error to this “data.” 

28.18 The Fleun method can be used to compute 

The results can be plotted. In addition, linear regression can be used to fit a straight line to In p 
versus t to give In p = 8.52 + 0.07/. Thus, as would be expected from a first-order model, the 
slope is equal to the growth rate of the population. 



28.19 The Heun method can be used to compute 
The results can be plotted. 




The curve is s-shaped. This shape occurs because initially the population is increasing 
exponentially since p is much less than p„ mx . However, as p approaches /w, the growth rate 
decreases and the population levels off. 

28.20 (a) Nonlinear regression (e.g., using the Excel solver option) can be used to minimize the sum 
of the squares of the residuals between the data and the simulation. The resulting estimates are: a 
= 0.32823, b = 0.01231, c = 0.22445, and d= 0.00029. The fit is: 



( b ) The results in state space are, 
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28.21 Main Program: 

% Hanging static cable - w=w(x) 

% Parabolic solution w=w(x) 

% CUS Units (lb,ft,s) 

% w = wo ( 1+sin (pi/2*x/l ) 
es=0 . 5e-7 

% Independent Variable x, xs=start x, xf=end x xs=0; xf=200; 

%initial conditions [y(l)=cable y-coordinate, y(2)=cable slope]; 
ic= [0 0] ; 

global wToP 

wToP=0 .0025; 

[x, y] =ode4 5 ( ' sip ' , xs , xf , ic, . 5e-7) ; 
yf (1) =y (length (x) ) ; 
wTo ( 1 ) =wToP; 
ea (1) =1; 

wToP=0 .002; 

[x, y] =ode4 5 ( ' sip ' , xs , xf , ic, . 5e-7) ; 
yf (2) =y (length (x) ) ; 
wTo (2 ) =wToP; 

ea (2) =abs ( (yf (2) -yf (1) ) /yf (2) ); 

for k=3 : 10 

wTo (k) =wTo (k-1) + (wTo (k-1) -wTo (k-2) ) / (yf (k-1) - yf (k-2) ) * (50-yf (k-1) ) ; 
wToP=wTo ( k) ; 

[x, y] =ode45 ( ' sip ' , xs , xf , ic, . 5e-7) ; 
yf (k) =y (length (x) ) ; 

ea(k)=abs( (yf (k) -yf (k-1) ) /yf (k) ); 

if (ea(k)<=es) 

%Analytic Solution with constant w (for Comparison) 

xa=xs : . 01 : xf ; 

ya=(0. 00125) * (xa.*xa) ; 

plot (x, y ( : , 1) , xa, ya, '--'); grid; 

xlabel ( ' x-coordinate - ft'); ylabel (' y-coordinate - ft'); 
title ('Cable - w=wo (1+sin (pi/2*x/l) )') ; 
fprintf('wTo %f\n', wTo) 
fprintf('yf %f\n', yf) 
fprintf('ea %f\n', ea) 
break 
end 
end 


Function ‘sip’: 

function dxy=slp(x,y) 
global wToP 

dxy= [y (2) ; (wToP) * (1+sin (pi/2*x/200) ) ] 



0 20 40 60 80 100 120 140 160 180 200 

x-coordinate - ft 


28.22 

Analy t ic, S olution for . the .case, .where h =.Q 

Substituting into the analytic solution the end point dimensions gives 

P-coshffl+1 = 0 

T 0 W 

This equation can be solved using a root finding numerical method which gives T„ = 53.7 lbs. 

Numerical Solution 

In this solution die ratio of w/T 0 is first estimated for two values and these results are used to mate the next 
estimate using a method similar to the shooting method. The convergence goal is to make the final y-value 
y A =l A =50 ft. The MATLAB program for execution is listed below. 


% Hanging static cable 
% Catenary w=w(s) 

% Weight /unit lerigth w=wo(l+b*s) 
es=0.5e-5; 

% Independent Variable x, xs=start x, xf=end x 
xs=0; xf=100; 

%initial conditions 

%[y(l)=cable y-cocrdinate, y(2)=cable slope, y{3)=cable length] ; 
ic=[0 0 0]; 

global WIbP 

WIbP=0 . 0093 ; 

[x,y]=ode45('slc' ,xs,xf,ic, .5e-7) ; 
yf (1) =y (length (x) ); 

WIb(l)=WIbP; 

ea(l)=l; 


WIbP=0.002; 

[x,y ] =ode45 ( ' sic 1 ,xs ,xf , ic , . 5e-7 ) ; 
yf (2) =y (laigth(x) ) ; 

WIb(2)=WIbP; 

ea(2)=abe( (yf (2)-yf (1) )/yf (2) ); 


for k=3:10 

WIb (k) =WIb(k-l) + (WIb (k-1) -WIb (k-2) ) / (yf (k-1) -yf (k-2) ) * (50-yf (k-1) ) ; 
WIbP=WIb(k) ; 

[x^sot^BCslc'jXSjXfjic, ,5e-7) ; 
yf (k)=y( length (x)) ; 
ea(k)=abs( (yf (k) -yf (k-1) ) /yf (k) ); 
if (ea(k)<=es) 

%Analytic Solution with constant w 
3 a=xs: .01:xf; 

ya^ (107 . 432018) * (cosh (0 . 009308212*xa) -1) ; 
plot (x,y ( : , 1) ,xa,ya, grid; 

xlabel(’x-coordinate - ft'); ylabel('y-coordinate - ft'); 
title ('Cable - w=wo(l+bs) '); 
format long 

fprintf ( 'WIb * %e\n' , WIb) 
fprintf ( 'yf = %f\n', yf) 
fprintf ( ' ea = %e\n' , ea) 
break 
mi 
end 

function dx/=slc (x,y) 
global WIbP 
d>^(l)=y(2); 

d>^(2) = (WI«>)*(l+0.05*y(3))*sqrt(l+y(2).*y(2)); 
d^(3)=sqrt(l+y(2).-*y(2)); 





= 9.300000e-03 
= 2.000000e-03 
= 2.167663e-03 
= 3. 447873©- 03 
= 3.302391e-03 
= 3.317200e-03 
= 3.317416e-03 
= 3.317415e-03 
992.781477 
27.837645 
30.404032 
52.512367 
49.715274 
49.995924 
50.000007 
50.000000 
1.000000e+00 
3.466327©+01 
8.440943e-02 
4.210120e-01 
5.626225e-02 
5.613466e-03 
8 . 164681e-05 
1.328803e-07 


Cable - w=wo(l+bs) 



28.23 The second-order equation can be reexpressed as a pair of first-order equations, 

dq 
dt 
di 
dz 


0.05/ - 4(7 + sin 1.8708/ 



The parameters can be substituted and the system solved with the 4 th -order RK method in 
double-precision with h = 0.1. A table showing the first few steps and a graph of the entire 
solution are shown below. 
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28.24 The second-order equation can be reexpressed as a pair of first-order equations, 

dq 

dt 

di R . q 
dt ~ L CL 

The parameters can be substituted and the system solved with the 4 th -order RK method with h 
0.005. A table showing the first few steps and a graph of the entire solution are shown below. 



28.25 The equation can be solved analytically as 



di _ R . 

dt L 

di R , 

— = dt 

i L 

In i = -(R/L)t + C 
C = 0.001 
i = 0.00le~ 2t 

The numerical solution can be obtained by expressing the equation as 


dt 

and using Euler’s method with h = 0.05 to solve for the current. Some selected values are 
shown, along with a plot of both the analytical and numerical result. A better match would be 
obtained by using a smaller step or a higher-order method. 



28.26 The numerical solution can be obtained by expressing the equation as 

— = -(-/ + 1 3 ) 2 
dt 

and using Euler’s method with h = 0.05 to solve for the current. Some selected values are 
shown, along with a plot of the numerical result. Note that the table and plot also show the 
analytical solution for the linear case computed in Prob. 28.19. 
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28.27 Using an approach similar to Sec. 28.3, the system can be expressed in matrix form as 


1 - A, 

- 1 



= {0} 


A package like MATLAB can be used to evaluate the eigenvalues and eigenvectors as in 

» a= [1 - 1 ; - 1 2] ; 

» [v,d]=eig(a) 

v = 

0.8507 - 0.5257 

0.5257 0.8507 

d = 

0.3820 0 

0 2.6180 

Thus, we can see that the eigenvalues are A = 0.382 and 2.618 or natural frequencies of to = 
0.618 1 4 LC and 1.618/ LC ■ The eigenvectors tell us that these correspond to oscillations that 
coincide (0.8507 0.5257) and which run counter to each other (-0.5257 0.8507). 



28.28 The differential equations to be solved are 

linear: nonlinear: 

J6 = 
dt 

dv 32.2 _ 

— U 

dt 4 

A few steps for the 4 th -order RK solution of the nonlinear system are contained in the following 
table and a plot of both solutions is shown below. 


dQ 


dt 

dv 

dt 


= v 


32.2 


sinO 



28.29 The differential equations to be solved are 


dx _ 
dt 

dv _ c k 

dt m m 


A few steps for the 2 nd -order RK solution (Heun without iteration) are shown in the following 
table and a plot of displacement is shown below. 



— = 0.2(40 -T) 
dt 

A few steps for the 2 nd -order RK solution (Heun without iteration) are shown in the following 
table and a plot of temperature versus time is shown below. The temperature will drop 95% of 
the way to the new temperature in 3/0.2 =15 minutes. 





28.31 The differential equation to be solved is 

dQ =0 100^0-^(20-0 

dt ' 100-2.5/ 

A few steps for the 2 nd -order RK solution (Heun without iteration) are shown in the following 
table and a plot of heat flow versus time is shown below. 



nonlinear: 


dv 

dt 


= 9.8- 


0.235 2 
v" 

68.1 


linear: 


*=9.8 -!“v 
dt 68.1 


A few steps for the solution (Euler) are shown in the following table, which also includes the 
analytical solution from Example 1.1. A plot of the result is also shown below. Note, the 
nonlinear solution is the bolder line. 



28.33 The differential 
t< 15 s: 


equations to be solved are 
* = 9.8-l^v 

dt 68.1 


t > 15 s: 


— = 9.8 — — v 
dt 68.1 


The first few steps for the solution (Euler) are shown in the following table, along with the 
steps when the parachute opens. A plot of the result is also shown below. 



28.34 

%Damped spring mass system 
%mass: m=l kg 

%damping, nonlinear: a sgn(dx/dt) (dx/dt) A 2, a=2 N/(m/s) A 2 
%spring, nonlinear: bx A 3, b=5 N/m A 3 
% MATLAB 5 version 

%Independent Variable t, tspan= [tstart tstop] 

%initial conditions [x ( 1 ) =velocity , x (2) =displacement] ; 


t0 = 0 ; 
tf =8 ; 

tspan=[0 8]; ic=[l 0.5]; 

% a) linear solution 

[t, x] =ode4 5 ( ' kc ' , tspan, ic) ; 

subplot (221) 

plot(t,x); grid; xlabel ( ' time - sec.'); 
ylabel (' displacement - m; velocity - m/s ' ) ; 
title ( 'd2x/dt2+2 (dx/dt) +5x=0 ' ) 
subplot (222) 

%Phase-plane portrait 
plot (x ( : , 2) , x ( : , 1) ) ; grid; 

xlabel (' displacement - m'); ylabel (' velocity - m/s ' ) ; 
title ( ' d2x/dt2+2 (dx/dt ) +5x=0 ' ) ; 


% b) nonlinear spring 

[t , x] =ode4 5 ( ' nlk ' , tspan, ic) ; 

subplot (223) 

plot (t, x) ; grid; 

xlabel('time - sec.'); ylabel (' displacement - m; velocity - m/s'); 
title ( 'd2x/dt2+2 (dx/dt) +5x A 3=0 ' ) 

%Phase-plane portrait 
subplot (224 ) 

plot (x ( : , 2) ,x ( : , 1) ) ; grid; 

xlabel (' displacement - m'); ylabel (' velocity - m/s'); 

title ( 'd2x/dt2+2 (dx/dt) +5x=0 ' ) ; 

pause 

% c) nonlinear damping 

[t, x] =ode4 5 ( ' nlc ' , tspan, ic) ; 

subplot (221) 

plot (t, x) ; grid; 

xlabel ('time - sec.'); ylabel (' displacement - m; velocity - m/s'); 
title ('d2x/dt2 + 2sign( dx/dt) (dx/dt ) A 2+5x=0 ' ) 

%Phase-plane portrait 
subplot (222) 

plot (x ( : , 2) ,x ( : , 1) ) ; grid; 

xlabel (' displacement - m'); ylabel (' velocity - m/s'); 
title (' d2x/dt2+2 sign (dx/dt ) (dx/dt ) A 2+5x=0 ') ; 

% d) nonlinear damping and spring 
[t, x] =ode4 5 ( 'nick' , tspan, ic) ; 
subplot (223) 
plot (t, x) ; grid; 

xlabel ('time - sec.'); ylabel (' displacement - m; velocity - m/s'); 
title ( ' d2x/ dt 2 +2 sign (dx/dt) (dx/ dt) A 2+5x A 3=0 ' ) 

%Phase-plane portrait 
subplot (224 ) 

plot (x ( : , 2) , x ( : , 1) ) ; grid; 

xlabel (' displacement - m'); ylabel (' velocity - m/s'); 
title ( ' d2x/ dt 2 +2 sign (dx/dt) (dx/ dt) A 2+5x A 3=0 ' ) ; 

Functions : 

%Damped spring mass system - m d2x/dt2 + c dx/dt + k x =0 
%mass: m=l kg 

% linear- c=2 N/(m/s) 

% linear- k=5 N/m 

%x ( 1 ) =velocity , x (2 ) =displacement 

function dx=kc(t,x); 
dx= [-2*x (1) -5*x (2) ; x(l)] 

%Damped spring mass system - m d2x/dt2 + c dx/dt + k x =0 
%mass: m=l kg 

%damping: linear- c=2 N/ (m/s) 

%spring: nonlinear- kx=bx A 3, b=5 N/m A 3 

function dx=nlk(t,x); 

dx= [ -2*x ( 1 ) -5*x (2) . *x (2) . *x (2) ; x (1) ] 

%Damped spring mass system - m d2x/dt2 + c dx/dt + k x =0 
%mass: m=l kg 

%damping: nonlinear- c dx/dt = a sgn (dx/dt) (dx/dt) A 2, a=2 N/ (m/s) A 2 

%spring: linear- kx=5x 

%x ( 1 ) =velocity, x (2) =dispacement 

function dx=nlc(t,x); 

dx (1) =-2*sign (x (1) ) *x (1) *x (1 ) - 5*x (2) ; 
dx (2 ) = x ( 1 ) ; 

%Damped spring mass system - m d2x/dt2 + c dx/dt + k x =0 
%mass: m=l kg 

%damping: nonlinear- c dx/dt = a sgn (dx/dt) (dx/dt) A 2, a=2 N/ (m/s) A 2 

%spring: nonlinear- k x = bx A 3, b=5 N/m A 3 

%x (1) =velocity, x (2) =dispacement 

function dx=nlck(t,x); 

dx= [-2*sign (x (1) ) . *x (1) . *x (1) -5*x (2) . *x (2) . *x (2) ; x (1) ] 



d2x/dt2+2(dx/dt)+5x = 0 


d2x/dt2+2(dx/dt)+5x = 0 



d2x/dt2 l +2^dx/dt < )+5x 3 =0 



time - sec. 
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time - sec. 



-0.5 0 0.5 1 

displacement - m 

d2x/dt2+2sign(dx/dt)(dx/dtr+5x=0 



-0.5 0 0.5 1 

displacement - m 


28.35 

%Forced damped spring-mass system w/ material damping 
%mass: m=2 kg 

%damping, nonlinear material: b sgn(dx/dt) abs (x) , b=l N/m 
%spring, linear: kx = 6x 

%forcing function: F=Fo (sin (wt) ) , Fo=2 N, w=0 . 5 rad/s 


% MATLAB 5 version 

%Independent Variable t, tspan= [tstart tstop] 

%initial conditions [x (1) =velocity, x (2) =displacement] ; 

tspan=[0 15]; ic=[0 1] ; 

[t, x] =ode45 ( ' nlF ' , tspan, ic) ; 

ts=0 : .01:15; 

Sin=2*sin (0 . 5*ts) ; 

plot (t, x, ts, Sin, 1 ; grid; xlabel('time - sec.'); 

ylabel (' displacement - m; velocity - m/s; force - N'); 

title (' non-linear , forced, damped spring-mass system, time response') 

Function 'nlF' : 

%Forced damped spring-mass system w/ material damping 
%mass: m=2 kg 

%damping, nonlinear air: b sgn(dx/dt) (dx/dt)"'2, b=l N/m 
%spring, linear: kx = 6x 

%forcing function: F=Fo (sin (wt) , Fo=2 N, w=0 . 5 rad/s 
% x(l)= velocity, x(2)= displacement 

function dx=nlF(t,x); 

dx= [ -0 . 5* sign (x ( 1 ) ) .*x(l) . *x (1) -3*x (2 ) +sin (0 . 5*t) ; x(l) ] 
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time • sec. 


ODE Boundary Value Problem 
Tapered conical cooling fin 
u[xx]+(2/x) (u[x]-pu)=0 
BC. u(x=0)=0 u(x=l)=l 
i=spatial index, from 1 to R 

numbering for points is i=l to i=R for (R-l) dx spaces 
u(i=l)=0 and u(i=R)=l 


R=21; 

%Constants 
dx=l/ (R-l) ; 
dx2=dx*dx; 

%Parameters 

p ( 1 ) =10 ; p (2) =20; p(3)=50; p(4)=100; 

%sizing matrices 

u=zeros (1, R) ; x=zeros(l,R); 

a=zeros (1,R) ; b=zeros ( 1 , R) ; c=zeros ( 1 , R) ; d=zeros(l,R); 
ba=zeros ( 1 , R) ; ga=zeros ( 1 , R) ; 

%Independent Variable 
x=0 : dx : 1 ; 

%Boundary Conditions 

u ( 1 ) =0 ; u (R) =1 ; 


for k=l : 4 ; 

% /Coefficients 

b (2) =-2-2*p (k) *dx2/dx; 

c (2 ) =2 ; 

for i=3:R-2, 

a (i) =l-dx/ (dx* ( i— 1 ) ) ; 
b (i) =-2-2*p (k) *dx2/ (dx* (i-1) ) ; 
c (i) =1+1/ (i-1) ; 
end 

a (R-l) =l-dx/ (dx* (R-2 ) ) ; 
b (R-l) =-2-2*p (k) *dx2/ (dx* (R-2) ) ; 
d(R-l)=- (1+1/ (R-2) ) ; 

%Solution by Thomas Algorithm 
ba (2) =b (2) ; 
ga(2)=d(2)/b(2) ; 
for i=3:R-l, 

ba (i) =b (i) -a (i) *c (i-1) /ba (i-1) ; 
ga (i) = (d(i) -a (i) *ga (i-1) ) /ba (i) ; 
end 

%back substitution step 
u (R-l) =ga (R-l) ; 
for i=R-2 : -1 : 2 , 

u (i) =ga (i)-c(i) *u (i+1) /ba (i) ; 
end 
%Plot 
plot (x, u) 

title (' u [xx] + (2/x) (u [x] -pu) =0; u(x=0)=0, u(x=l)=l') 

xlabel('x -ND Length') 
ylabel('u - ND Temperature') 
hold on 
end 
grid 
hold off 

gtext ( 'p=10 ' ) ;gtext ( 'p=20 ' ) ;gtext ( 'p=50 ' ) ;gtext ( 'p=100 ' ) ; 



0 0.1 0.2 0.3 0.4 0.5 0.6 0.7 0.8 0.9 1 

x -ND Length 


t 

V 

dvdt 

0 

0 

9.8 

0.1 

0.98 

9.620117 

0.2 

1.942012 

9.443537 

0.3 

2.886365 

9.270197 

0.4 

3.813385 

9.100039 

0.5 

4.723389 

8.933005 


14.9 

50.01245 

0.620036 



15 

50.07445 

- 26.9654 



15.1 

47.37791 

- 24.9855 



15.2 

44.87936 

- 23.1511 



15.3 

42.56425 

- 21.4513 



15.4 

40.41912 

- 19.8763 



15.5 

38.43149 

- 18.417 




linear 


nonlinear 

t 

V 

dvdt 

V 

dvdt 

0 

0 

9.8 

0 

9.8 

0.1 

0.98 

9.620117 

0.98 

9.796686 

0.2 

1.942012 

9.443537 

1.959669 

9.786748 

0.3 

2.886365 

9.270197 

2.938343 

9.770206 

0.4 

3.813385 

9.100039 

3.915364 

9.747099 

0.5 

4.723389 

8.933005 

4.890074 

9.717481 

t 

T 

kll 

T-end 

k21 

0 

0 

1598 

159.8 

1602.005 

0.1 

160.0003 

1593.995 

319.3997 

1598 

0.2 

319.6 

1589.97 

478.597 

1593.975 

0.3 

478.7972 

1585.924 

637.3897 

1589.929 

0.4 

637.5899 

1581.859 

795.7758 

1585.863 

0.5 

795.976 

1577.772 

953.7532 

1581.777 

t 

T 

kll 

T-end 

k21 

0 

90 

-10 

89 

- 9.8 

0.1 

89.01 

- 9.802 

88.0298 

- 9.60596 

0.2 

88.0396 

- 9.60792 

87.07881 

- 9.41576 

0.3 

87.08842 

- 9.41768 

86.14665 

- 9.22933 

0.4 

86.15607 

- 9.23121 

85.23295 

- 9.04659 

0.5 

85.24218 

- 9.04844 

84.33733 

- 8.86747 


X 

V 

kll 

kl2 

X 

0.3 

0 

0 

- 312.5 

0.3 

0.299844 

- 0.31068 

- 0.31068 

- 308.713 

0.299533 

0.299379 

- 0.61743 

- 0.61743 

- 304.65 

0.298761 

0.298609 

- 0.91998 

- 0.91998 

- 300.318 

0.297689 

0.297539 

- 1.21806 

- 1.21806 

- 295.726 

0.296321 


analytical 

0 

0.971061 

1.92446 

2.860518 

3.779552 

4.681871 

phil 

1600.003 

1595.997 

1591.972 

1587.927 

1583.861 

1579.774 

phil 

-9.9 

- 9.70398 

- 9.51184 

- 9.32351 

- 9.1389 

- 8.95795 


V 

k21 

k22 

phil 

phi2 

- 0.3125 

- 0.3125 

- 308.854 

- 0.15625 

- 310.677 

- 0.61939 

- 0.61939 

- 304.787 

- 0.46503 

- 306.75 

- 0.92208 

- 0.92208 

- 300.452 

- 0.76975 

- 302.551 

- 1.2203 

- 1.2203 

- 295.856 

- 1.07014 

- 298.087 

- 1.51379 

- 1.51379 

- 291.007 

- 1.36593 

- 293.366 


t 

thet 

V 

kll 

kl2 

thet 

V 

k21 

k22 

thet 

V 

A 31 

k32 

thet 

V 

kll 

k42 

phil 

phi2 

0 

0.785 

0.000 

0.000 

-5.692 

0.785 

-0.028 

-0.028 

-5.692 

0.785 

-0.028 

-0.028 

-5.691 

0.785 

-0.057 

-0.057 

-5.691 

-0.028 

-5.692 

0.01 

0.785 

-0.057 

-0.057 

-5.691 

0.785 

-0.085 

-0.085 

-5.689 

0.785 

-0.085 

-0.085 

-5.688 

0.784 

-0.114 

-0.114 

-5.686 

-0.085 

-5.688 

0.02 

0.784 

-0.114 

-0.114 

-5.686 

0.784 

-0.142 

-0.142 

-5.682 

0.784 

-0.142 

-0.142 

-5.682 

0.783 

-0.171 

-0.171 

-5.678 

-0.142 

-5.682 

0.03 

0.783 

-0.171 

-0.171 

-5.678 

0.782 

-0.199 

-0.199 

-5.673 

0.782 

-0.199 

-0.199 

-5.672 

0.781 

-0.227 

-0.227 

-5.666 

-0.199 

-5.672 

0.04 

0.781 

-0.227 

-0.227 

-5.666 

0.780 

-0.256 

-0.256 

-5.660 

0.780 

-0.256 

-0.256 

-5.659 

0.778 

-0.284 

-0.284 

-5.652 

-0.256 

-5.659 


t 

(analytical) 

(Euler) 

didt 

0 

0.600000 

0.600000 

- 0.768000 

0.05 

0.542902 

0.561600 

- 0.768949 

0.1 

0.491238 

0.523153 

- 0.759943 

0.15 

0.444491 

0.485155 

- 0.741923 

0.2 

0.402192 

0.448059 

- 0.716216 

0.25 

0.363918 

0.412248 

- 0.684375 




t 

(analytical) 

0 

0.600000 

0.05 

0.542902 

0.1 

0.491238 

0.15 

0.444491 

0.2 

0.402192 

0.25 

0.363918 


(Euler) didt 

0.600000 -1.200000 
0.540000 -1.080000 
0.486000 -0.972000 
0.437400 -0.874800 
0.393660 -0.787320 
0.354294 -0.708588 


t 

i 

<1 

kll 

A/2 

imid 

qmid 

k21 

k22 

imid 

qmid 

k31 

k32 

iend 

qend 

k41 

k42 

phil 

phi2 

0 

-3.282 

0.100 

-134.37 

-3.282 

-3.617 

0.092 

-111.24 

-3.617 

-3.560 

0.091 

-110.7 

-3.560 

-3.835 

0.082 

-87.70 

-3.835 

- 111.0 

-3.578 

0.005 

-3.837 

0.082 

-87.485 

-3.837 

-4.055 

0.073 

-63.93 

-4.055 

-3.996 

0.072 

-64.01 

-3.996 

-4.157 

0.062 

-41.12 

-4.157 

-64.08 

-4.016 

0.01 

-4.157 

0.062 

-40.917 

-4.157 

-4.259 

0.052 

-18.09 

-4.259 

-4.202 

0.051 

-18.72 

-4.202 

-4.251 

0.041 

2.976 

-4.251 

-18.59 

-4.222 

0.015 

-4.250 

0.041 

3.159 

-4.250 

-4.242 

0.030 

24.25 

-4.242 

-4.189 

0.030 

23.16 

-4.189 

-4.134 

0.020 

42.736 

-4.134 

23.45 

2 

-4.208 

0.02 

-4.133 

0.020 

42.892 

-4.133 

-4.025 

0.010 

61.41 

-4.025 

-3.979 

0.010 

59.95 

-3.979 

-3.833 

0.000 

76.688 

-3.833 

60.38 

3 

-3.996 


t 

i 

‘1 

kll 

kl2 

imid 

qmid 

k21 

k22 

imid 

qmid 

k31 

k32 

iend 

qend 

k41 

k42 

phil 

phi2 

0 

0.000 

0.000 

0.000 

0.000 

0.000 

0.000 

0.093 

0.000 

0.004 

0.000 

0.093 

0.004 

0.009 

0.000 

0.183 

0.009 

0.092 

0.0031 


0 

0 

0 

0 

0 

0 

4 

0 

7 

0 

2 

7 

3 

5 

7 

3 

8 


0.1 

0.009 

0.000 

0.184 

0.009 

0.018 

0.000 

0.272 

0.018 

0.022 

0.001 

0.270 

0.022 

0.036 

0.002 

0.353 

0.036 

0.270 

0.0214 


3 

3 

3 

3 

5 

8 

9 

5 

9 

2 

9 

9 

4 

6 

3 

4 

9 


0.2 

0.036 

0.002 

0.353 

0.036 

0.054 

0.004 

0.431 

0.054 

0.057 

0.005 

0.427 

0.057 

0.079 

0.008 

0.495 

0.079 

0.427 

0.0566 


4 

5 

9 

4 

1 

3 

1 

1 

9 

2 

3 

9 

1 

2 

3 

1 

7 


0.3 

0.079 

0.008 

0.495 

0.079 

0.103 

0.012 

0.555 

0.103 

0.106 

0.013 

0.550 

0.106 

0.134 

0.018 

0.598 

0.134 

0.551 

0.1058 


1 

1 

8 

1 

9 

1 

5 

9 

9 

3 

4 

9 

2 

8 

5 

2 

0 


0.4 

0.134 

0.018 

0.598 

0.134 

0.164 

0.025 

0.636 

0.164 

0.166 

0.026 

0.630 

0.166 

0.197 

0.035 

0.653 

0.197 

0.630 

0.1653 


2 

7 

9 

2 

2 

4 

1 

2 

0 

9 

0 

0 

2 

3 

8 

2 

8 



t 

P 

kl 

pend 

k2 

phi 

0 

5000 

750 

5375 

786.0938 

768.0469 

0.5 

5384.023 

786.9276 

5777.487 

821.7039 

804.3157 

1 

5786.181 

822.4373 

6197.4 

855.4023 

838.9198 

1.5 

6205.641 

856.0284 

6633.655 

886.6772 

871.3528 


18 

18480.96 

280.733 

18621.33 

256.7271 

268.7301 

18.5 

18615.33 

257.7616 

18744.21 

235.3885 

246.575 

19 

18738.61 

236.3663 

18856.8 

215.5715 

225.9689 

19.5 

18851.6 

216.4921 

18959.84 

197.2119 

206.852 

20 

18955.02 

198.0754 

19054.06 

180.2397 

189.1575 

t 

P 

kl 

pend 

k2 

phi 

0 

5000 

350 

5175 

362.25 

356.125 

0.5 

5178.063 

362.4644 

5359.295 

375.1506 

368.8075 

1 

5362.466 

375.3726 

5550.153 

388.5107 

381.9417 

1.5 

5553.437 

388.7406 

5747.807 

402.3465 

395.5436 

2 

5751.209 

402.5846 

5952.501 

416.6751 

409.6299 


18 

17622.69 

1233.588 

18239.48 

1276.764 

1255.176 


18.5 

18250.28 

1277.52 

18889.04 

1322.233 

1299.876 


19 

18900.22 

1323.015 

19561.72 

1369.321 

1346.168 


19.5 

19573.3 

1370.131 

20258.37 

1418.086 

1394.108 


20 

20270.36 

1418.925 

20979.82 

1468.587 

1443.756 


t 

cl 

c2 

c3 

dcl/dt 

dc2/dt 

dc3/dt 

0 

0 

0 

100 

21.93515 

0 

-43.8703 

0.1 

2.193515 

0 

95.61297 

19.41211 

0.252723 

-40.9834 







0.2 

4.134726 

0.025272 

91.51463 

17.13425 

0.473465 

-38.3338 

0.3 

5.848151 

0.072619 

87.68125 

15.07861 

0.66542 

-35.9004 

0.4 

7.356012 

0.139161 

84.09121 

13.22439 

0.83148 

-33.664 

0.5 

8.678451 

0.222309 

80.72481 

11.55268 

0.974263 

-31.607 

z 

y 

w 

dydz 

dwdz 



0 

0 

0 

0 

0.0036 



1 

0 

0.0036 

0.0036 

0.003364 



2 

0.0036 

0.006964 

0.006964 

0.003136 



3 

0.010564 

0.0101 

0.0101 

0.002916 



4 

0.020664 

0.013016 

0.013016 

0.002704 



5 

• 

0.03368 

0.01572 

0.01572 

0.0025 




26 

0.676 

0.0377 

0.0377 

0.000064 


27 

0.7137 

0.037764 

0.037764 

0.000036 


28 

0.751464 

0.0378 

0.0378 

0.000016 


29 

0.789264 

0.037816 

0.037816 

0.000004 


30 

0.82708 

0.03782 

0.03782 

0 


z 

f(z) 

y 

w 

dydz 

dwdz 

0 

0 

0 

0 

0 

0 

1 

31.18357 

0 

0 

0 

0.002098 

2 

50.0099 

0 

0.002098 

0.002098 

0.003137 

3 

61.40481 

0.002098 

0.005235 

0.005235 

0.003581 

4 

68.08252 

0.007333 

0.008816 

0.008816 

0.003682 

5 

• 

71.65313 

0.016148 

0.012498 

0.012498 

0.003583 


26 

29.63907 

0.700979 

0.040713 

0.040713 

3.79E-05 

27 

27.89419 

0.741693 

0.040751 

0.040751 

2.01E-05 

28 

26.24164 

0.782444 

0.040771 

0.040771 

8.4E-06 

29 

24.67818 

0.823216 

0.04078 

0.04078 

1.97E-06 

30 

23.20033 

0.863995 

0.040782 

0.040782 

0 

z 

y 

w 

dydz 

dwdz 


0 

0 

0 

0 

0.0036 


1 

0 

0.0036 

0.0036 

0.003364 


2 

0.0036 

0.006964 

0.006964 

0.003136 


3 

0.010564 

0.0101 

0.0101 

0.002916 


4 

0.020664 

0.013016 

0.013016 

0.002704 


5 

• 

0.03368 

0.01572 

0.01572 

0.0025 



26 

0.676 

0.0377 

0.0377 

0.000064 

27 

0.7137 

0.037764 

0.037764 

0.000036 

28 

0.751464 

0.0378 

0.0378 

0.000016 

29 

0.789264 

0.037816 

0.037816 

0.000004 

30 

0.82708 

0.03782 

0.03782 

0 

t 

X 

y 

Z 


0 

5 

5 

5 


0.1 

9.78147 

17.07946 

10.43947 


0.2 

17.70297 

20.8741 

35.89688 




0.3 

10.81088 

- 2.52924 

39.30744 

0.4 

0.549577 

- 5.54419 

28.07461 

0.5 

- 3.16461 

- 5.84129 

22.36888 

0.6 

- 5.57588 

- 8.42037 

19.92312 

0.7 

- 8.88719 

- 12.6789 

22.14149 

0.8 

- 11.9142 

- 13.43 

29.80001 

0.9 

- 10.6668 

- 7.21784 

33.39903 

1 

- 6.84678 

- 3.43018 

29.30716 

0 

2 

3 


0.1 

1.887095 

2.935517 


0.2 

1.787897 

2.863301 


0.3 

1.701588 

2.785107 


0.4 

1.627287 

2.702536 


0.5 

1.564109 

2.617016 


0 

2 

3 


0.1 

1.886984 

2.935308 


0.2 

1.787729 

2.862899 


0.3 

1.701406 

2.784535 


0.4 

1.627125 

2.701821 


0.5 

1.56399 

2.616185 


t 

x 

y 


0 

2 

3 


0.1 

1.88 

2.94 


0.2 

1.773968 

2.870616 


0.3 

1.681301 

2.793738 


0.4 

1.601231 

2.711153 


0.5 

1.532907 

2.624496 



t 

C 

Te 

0 

1 

25 

0.0625 

0.941218 

66.18648 

0.125 

0.885749 

85.80247 

0.1875 

0.833497 

93.93385 

0.25 

0.784309 

96.02265 

0.3125 

0.738024 

94.99472 

0.375 

0.694475 

92.41801 

0.4375 

0.653506 

89.12894 

0.5 

0.614963 

85.57041 

0.5625 

0.578703 

81.97385 

0.625 

0.54459 

78.45733 

0.6875 

0.512497 

75.07829 

0.75 

0.482304 

71.86194 

0.8125 

0.453896 

68.81648 

0.875 

0.427168 

65.9413 

0.9375 

0.40202 

63.23134 

1 

0.378358 

60.67946 

• 

• 

• 




X 

A 

X 

A 

0 

0.1 



0.2 

0.067208 

1.2 

0.009215 

0.4 

0.045169 

1.4 

0.006193 


X 

A 

X 

A 

2.2 

0.001263 

3.2 

0.000166 

2.4 

0.000848 

3.4 

0.000106 




0.6 0.030357 

0.8 0.020402 

1 0.013712 


1.6 0.004162 

1.8 0.002797 

2 0.00188 


2.6 0.000569 

2.8 0.00038 

3 0.000253 


t 

M 

m 

s 

dmdt 

0 

1000 

8000 

8 

0 

5 

997.5 

8000 

8.02005 

-0.2005 

10 

995 

7998.997 

8.039193 

-0.39193 

15 

992.5 

7997.038 

8.057469 

-0.57469 

20 

990 

7994.164 

8.074914 

-0.74914 

25 

987.5 

7990.419 

8.091563 

-0.91563 


3.6 6.23E-05 

3.8 2.88E-05 

4 0 


t 

cin 

c 

kl 

cend 

cin-end 

k2 

phi 

0 

0 

10 

-0.5 

9 

9.063462 

0.003173 

-0.24841 

2 

9.063462 

9.503173 

-0.02199 

9.459202 

16.484 

0.35124 

0.164627 

4 

16.484 

9.832427 

0.332579 

10.49758 

22.55942 

0.603092 

0.467835 

6 

22.55942 

10.7681 

0.589566 

11.94723 

27.53355 

0.779316 

0.684441 

8 

27.53355 

12.13698 

0.769829 

13.67664 

31.60603 

0.89647 

0.833149 

10 

31.60603 

13.80328 

0.890138 

15.58355 

34.94029 

0.967837 

0.928987 


f 

cl 

c2 

c3 

c4 

c5 

dcldt 

dc2dt 

dc3dt 

dc4dt 

dc5dt 

0 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

1 .0000 

0.0000 

5.0000 

0.0000 

0.0000 

1 

1 .0000 

0.0000 

5.0000 

0.0000 

0.0000 

0.8600 

0.2000 

3.6250 

0.5625 

0.0300 

2 

1 .8600 

0.2000 

8.6250 

0.5625 

0.0300 

0.7396 

0.3320 

2.6331 

0.8726 

0.0600 

3 

2.5996 

0.5320 

11.2581 

1.4351 

0.0900 

0.6361 

0.4135 

1.9173 

1.0176 

0.0885 

4 

3.2357 

0.9455 

13.1754 

2.4528 

0.1785 

0.5470 

0.4580 

1 .4004 

1.0575 

0.1147 

5 

3.7827 

1 .4035 

14.5758 

3.5102 

0.2933 

0.4704 

0.4758 

1.0267 

1.0328 

0.1380 


76 

7.1428 

7.1426 

18.8311 

13.0962 

7.0053 

0.0000 

0.0000 

0.0000 

0.0018 

0.0082 

77 

7.1428 

7.1426 

18.8311 

13.0980 

7.0135 

0.0000 

0.0000 

0.0000 

0.0017 

0.0078 

78 

7.1428 

7.1427 

18.8311 

13.0997 

7.0213 

0.0000 

0.0000 

0.0000 

0.0016 

0.0073 

79 

7.1428 

7.1427 

18.8311 

13.1013 

7.0286 

0.0000 

0.0000 

0.0000 

0.0015 

0.0069 

80 

7.1428 

7.1427 

18.8311 

13.1028 

7.0354 

0.0000 

0.0000 

0.0000 

0.0014 

0.0064 


t 

c 

kl 

cmid 

k2 

cmid 

k3 

cend 

k4 

phi 

0 

10 

2 

20 

1.5 

17.5 

1.625 

26.25 

1.1875 

1.572917 

10 

25.72917 

1.213542 

31.79688 

0.910156 

30.27995 

0.986003 

35.58919 

0.72054 

0.9544 

20 

35.27317 

0.736342 

38.95487 

0.552256 

38.03445 

0.598278 

41.25594 

0.437203 

0.579102 

30 

41.06419 

0.446791 

43.29814 

0.335093 

42.73965 

0.363017 

44.69436 

0.265282 

0.351382 

40 

44.57801 

0.2711 

45.93351 

0.203325 

45.59463 

0.220268 

46.78069 

0.160965 

0.213208 

50 

46.71009 

0.164495 

47.53257 

0.123371 

47.32695 

0.133652 

48.04662 

0.097669 

0.129369 


t 

c 

kl 

c 

k2 

phi 

0 

10 

2 

30 

1 

1.5 

10 

25 

1.25 

37.5 

0.625 

0.9375 

20 

34.375 

0.78125 

42.1875 

0.390625 

0.585938 

30 

40.23438 

0.488281 

45.11719 

0.244141 

0.366211 

40 

43.89648 

0.305176 

46.94824 

0.152588 

0.228882 

50 

46.1853 

0.190735 

48.09265 

0.095367 

0.143051 






CHAPTER 32 

32.1 First equation 

6.075c 0 - 3.2 Cj = 262.5 
Middle equations (i = 1 to 8) 

-2.1c, •_[ + 3.45c ; - 1.1 c i+l = 0 
Last equation 
-3.2c 8 + 3.45c 9 = 0 
The solution is 

32.2 Element equation: ( See solution for Prob. 31.4 for derivation of element equation.) 



a u = — - + — (2.5) = 0.55 

11 2.5 2 2 


-2 1 . , 

a ,, = = -1.3 

- 1 2.5 2 


dc 

b\ = -2 — (*j ) 
dx 


Assembly: 


-2 1 

u |2 — 1 — — — 0.3 


2.5 2 


2 1 0.2 

cl'*', — 1 1 (2.5) — 1.55 

22 2.5 2 2 


dc 

b i =2 — (x 2 ) 
dx 




dc 

"0.55 -0.3 

c o 


- , (-L ) 
dx 

-1.3 2.1 -0.3 

Cl 


0 

-1.3 2.1 -0.3 

C 2 

* = • 

0 

-1.3 2.1 -0.3 

C 3 


0 

-1.3 1.55 

C 4. 


dc , 

— (x 2 ) 



. dx 


Boundary conditions: 
Inlet: 


U Cin =Uc 0 -D—( 0) 
dx 

dc (Q ) = Cfep ~ LCjn 
dx D 


Substitute into first equation 



0.55c 0 -0.3CJ = 100- c 0 
1.55c 0 - 0.3c j = 100 

Outlet: 

dc 

— do) = 0 

dx 

Solution: 


Co = 74.4 


ci = 51.08 


c 2 = 35.15 c 3 = 24.72 c 2 = 20.74 


32.3 According to Fick’s first law, the diffusive flux is 
dc 

J(x) = -D — (x) 
dx 

where J{x) = flux at position x. If c has units of g/m 3 , D has units of nf/d and x is measured 
in m, flux has units of g/m 2 /d. In addition, there will be an advective flux which can be 
calculated as 


J(x) = Uc(x) 

Finite divided differences can be used to approximate the derivatives. For example, for the 
point at the beginning of the tank, a forward difference can be used to calculate 


*(0) S 52 - 47 — 1SM . — 0.9588 
dx 2.5 m 


Thus, the flux at the head of the tank is 


J(x) = — 2( — 0.9588) + 1(76.44) = 19.176+ 76.44 = 95.616 - 

m 

The remasinder of the values can be calculated in a similar fashion using centered (middle 
nodes) and backward differences (the end node): 



32.4 Segmentation scheme: 


dcldy = 0 


40 

40 

40 


1,2 

2,2 

3,2 

4,2 

5,2 


1,1 

2,1 

3,1 

4,1 

5,1 


1,0 

2,0 

3,0 




6,1 


-w 


100 100 100 


dcldy = 0 
Nodes 1,1 through 5,1 

— 2c ij +c i-ij + Q . 4 fh/+j — 2c ij + c ij + 1 _ () 2c 


Collecting terms gives 

0.264c,. y - 0.016c, +1/ - 0.016c, _ ly - 0.016c j</+1 - 0.016c, y+1 = 0 

Node 6, 1 would be modified to reflect the no flow condition in x and the Dirichlet condition 
at 6,0: 

0.264c 6 1 - 0.032c 5 a - 0.016c 6 2 - 0.016(100) = 0 

The nodes along the upper edge (1,2 through 5,2) would be generally written to reflect the 
no-flow condition in y as 

0.264c ,. j - 0.016c, +1/ - 0.016c, _ L/ - 0.032c, J+1 - 0 


The node at the upper right edge (6,2) would be generally written to reflect the no-flow 
condition in x and y as 

0.264c 6 2 - 0.032c 5 2 - 0.032c 6 x = 0 

Finally, the nodes along the lower edge (1,0 through 3,0) would be generally written to 
reflect the no-flow condition in y as 

0.264c, v - 0.016c , MJ - 0.016c, _ L/ - 0.032c,. /+1 - 0 


These equations can be solved for 




32.5 For simplicity, we will use a very coarse grid to solve this problem. Thus, we place nodes as 
in the following diagram. 


' I (In 


-o ■ 


oil 


0 




*2 IV 


water 




A simple explicit solution can be developed by substituting finite-differences for the second 
derivative terms in the motion equations. This is done for the three non-boundary nodes, 


dv n 


dt 


Th 


V 0w - 2 v 2w + V 4 W 

Ax 2 


dv 4 w _.. V 2 W ~ 2v 4 w +V 6w 

Fv 


dt 


Ar 


uv io _ v 6o ^ 1 8o " r 1 lOo 

dt Ax 2 

These three equations have 7 unknowns (v 0lv , v 2w , v 4vv , v ( „v, v< m , v So , vioo). The boundary 
conditions at the plates effectively specify Vow = 0 and Vio 0 = 7. The fonner is called a “no 
slip” condition because it specifies that the velocity at the lower plate is zero. 

The relationships at the oil-water interface can be used to used to eliminate two of the 
remaining unknowns. The first condition states that 


V6 o V6 w 

The second can be rearrange to yield 

„ _ VqVSo + HiA4w 

^6 w 

V-o + V-w 


(0 

(«) 


These, along with the wall boundary conditions can be substituted into the differential 
equations 


dv 


2 vi 

dt 


= K 


~ 2v 2w + V 4 

Ax 2 


dv 4, 

dt 


— 2vi,„ + 


M-o V 8o + 


-=V-y 


Vo +F,. 


Ax' 


M-o V 8o + M- M ' V 4 m- _ 2 v + 7 
7 8o 

rfv 8 0 _.. + Hw 

dt Ax 1 

These equations can now be integrated to determine the velocities as a function of time. 
Equations ( i ) and (ii) can be used to determine V6 0 and ve». The results are plotted below: 



32.6 Using a similar approach to Sec. 32.2, the following nodal equation can be developed for 
node 1 1 : 

4« n - 1.21954 m 12 - 1.21954m 10 - 0.78049m 12 - 0.78049t/ 01 = 0.357866 

Similar equations can be written for the other nodes and the resulting equations solved for 

A graphical comparison of the results from Sec. 32.2 can be made with these results by 
developing a plot along they dimension in the middle of the plate: 



These results can then be used as input to the right-hand side of Eq. 32.14 and the resulting 
simultaneous equations solved for 


Again the comparison is good 



32.7 Grid scheme 


0,2 1,2 2,2 3,2 



All nodes in the above scheme can be modeled with the following general difference 
equation 


h Mj ~ 2h ij + hj-ij | fi u+ i - 2h u + hjj_ i _ 

Ax 2 Ay 2 

Node 0,0: 

^i,o — 2^o,o + ^-i,o ^o,i — 2/? 0 o + ^o,-i „ 

V - + 2 — = 0 

Ar“ Av 2 

The external nodes can be approximated with finite differences 


dh _ h 01 /i 0 _, 

dv 2A y 

dh 

"o,-i = "o,i — 2Ay — - = h ol 
av 

dh _ h l 0 - h_ l o 
dx 2A x 

dh 

^-i,o = ^1,0 — 2Ar — = h l 0 — 2(1)(1) = h l 0 — 2 
ax 


which can be substituted into the difference equation to give 


2^i,o 2 /j 0 0 2 2/? 0>1 2h 0 0 

Ax 2 Ay 2 

4^o,o ~ 2/2 1j0 — 2/? 0 j = —2 

Node 1,0: 

4 ^ 1,0 — 2 ^ 1,1 — ^ 0,0 — ^ 2,0 = ^ 
Node 2,0: 

4/i 2 0 - 2/zj 0 - 2/? 2 j = 0 
Node 0,1: 

4 / 'o,l — ^^1,1 — ^0,0 — ^0,2 = — 2 
Node 1,1: 

4 /?i 2 — /i 10 — /z 0>1 — /ij 2 — ^2,1 = 0 

Node 2,1: 

4/z 2 i — /? ! i — h 2 2 — h 2 l — h 20 = 0 
Node 0,2: 

4^0,2 ~ 2/7 0j i ~~ 2 h l 2 = —2 
Node 1,2: 


4^ 1,2 K,2 


^2,2 2//j! 


= 0 


Node 2,2: 


4 ^ 2,2 ~ ^ 1,2 ~ ^0 

The equations can be solved simultaneously for 

More refined results can be obtained by using a finer grid spacing. 

32.8 The fluxes can be determined using finite divided differences as 

32.9 Because of the equi-spaced grid, the domain can be modeled with simple Laplacians. The 
resulting solution is 

32.10 A convenient segmentation scheme can be developed as 



L J 


1 

H 


O' 


*2 


0 

• 

x 3 

' 

0 

1 

x 4 


2 


Simple Laplacians reflecting the boundary conditions can be developed and solved for 

32.11 The system to be solved is 

2.7 -2 

-2 2.75 -0.75 

-0.75 2.25 -1.5 

-1.5 1.5 

which can be solved forxi = 2.857, X 2 = 3.857, X 3 = 6.5238, andx 4 = 7.857. 

32. 12 The system to be solved is 

~ 0.6 -0.4 

-0.4 1.8 -1.4 

-1.4 2.1 -0.7 

-0.7 1.6 -0.9 

-0.9 0.9 

which can be solved forxi = 5, X 2 = 7.5, X 3 = 8.214286, X 4 = 9.64286, andxs = 10.75397. 

32.13 Substituting the Crank-Nicolson finite difference analogues to the derivatives 


1 

Xi 


O' 


*2 


0 

* 

*3 

* = * 

0 


x 4 


0 

l 

X 5. 


1 


3 2 u 1 

a7 - 2 

3 w — T .//—1 M in 
dt At 


U i+\,n+\ u i,n + 1 u i-\,n+\ U i+\,n U i,n u i- l,n 

+ . ! !— 


AW 


AC 


into the governing equations gives the following finite difference equations: 


l,n+l 


+ 


1 

<N 

$ 



K> 

2 2 

At 

u i,n+ 1 + v\ u i+\,n+\ _ 

~ u i-U + 

2 2 

At 


U — U ■ . r 
i.n i+Ln 


In u i-u+\ + 


1 

<N 

H 

< 



to 

fN 

1 

CN 

1 

u i,n + 1 [ r \ u i+\ji+\ 

~™i-l,n + 

2r - 2 

At 

At 


0 < x < 


U i,n ~ nl i+\,n 


<X<1 


Substitute for the end point boundary conditions to get the end point finite difference equations. 
Substitute the first order Crank Nicolson analogues to the derivatives 



du 

dr 


— U; 


J_ u i+\,n+l U i-\,n+\ U i+\,n 

2 2 A r 2 A r 


i—\.n 


into the midpoint boundary condition and get 


U i+l,«+l + U L+\,n + r(u L+l,n+ 1 + U L+\,n ) — ^L—l^n+l ^ L=l,n ^"(^f+l,«+l ^ L+\,n ) 

where u a and a * are fictitious points located in the opposite side of the midpoint from their 
half. Write out the two finite difference equations from above for the point i = L (the midpoint) 
then combine these two equations with the midpoint boundary condition to obtain the midpoint 
finite difference equation: 


\^\ U L-\,n+l 


Ax 2 


Ax 2 

2(1 + r) 4 

At 

U L,n+\ + [2J w Z+1,h+1 - 2 u L-\, n + 

2(1 + r) 4 

At 


( 1+ r ) U L+\,n 


%PDE Parabolic Problem - Transient Heat conduction in a composite rod 
% u[xx]=u[t] 0<x<0.5 

% r (u [xx] ) =u [t] 0.5<x<l 

% BC u ( 0 , t) =1 u(l,t)=l 
% u [x] =r (u [x] ) x=0 . 5 

% IC u(x,0)=0 0<x<l 

% i=spatial index, from 1 to imax 
% R = no. of x points (R=21 for 20 dx spaces) 

% n=time index from 1 to N 
% N = no . of time steps, 

% Crank-Nicolson Formulation 


R=41; % (imax must be odd for point L to be correct) 

N=69; % last time step = nmax+1 

L=(R-l)/2+l; % L = midpoint of point no. (for R=41, L=21) 

% Constants 
r=0 . 01; 
dx— 1 / (R-l) ; 
dx2=dx*dx; 

dt=dx2; % Setting dt to dx2 for good stabilility and results 

% Independent space variable 
x=0 : dx : 1 ; 

% Sizing matrices 

u= zeros (R, N+l ) ; t= zeros ( 1 , N+l ) ; 
a=zeros ( 1 , R) ; b=zeros(l,R); 

c=zeros ( 1 , R) ; d=zeros(l,R); 
ba=zeros ( 1 , R) ; ga=zeros ( 1 , R) ; 
up=zeros ( 1 , R) ; 


% Boundary Conditions at t=0 
u (1, 1) =1; 
u (R, 1 ) =1 ; 

% Time step loop 

% n=l represents 0 time, next time = n+l 
t (1) =0 ; 
for n=l : N 

t (n+l ) =t (n) +dt; 

% Boundary conditions & Constants 
u (1, n+l) =1; 
u (R, n+l ) =1; 
dx2dt=dx2/dt; 


% coefficients 

b (2) =-2-2*dx2dt; 
c (2) =1; 

d (2) = (2-2*dx2dt) *u (2,n) -u (3, n) -2; 
for i=3:L-l 
a (i) =1; 

b (i) =-2-2*dx2dt; 
c (i) =1; 

d (i) =-u ( i — 1 , n) + (2-2*dx2dt) *u (i , n) -u (i+1 , n) ; 
end 

a (L) =2; 

b (L) =-2* (1+r) -4*dx2dt; 
c (L) =2*r ; 

d(L)=-2*u(L-l,n) + (2* (1 + r) -4*dx2dt) *u (L,n) -2*r*u (L+l, n) ; 

for i=L+l : R-2 
a (i) =r; 

b (i) =-2*r-2*dx2dt; 
c (i) =r; 

d(i) =-r*u (i-l,n) + (2*r-2*dx2dt) *u (i,n) -r*u (i+l,n) ; 
end 

a (R-l) =r; 

b (R-l ) =-2*r-2*dx2dt; 

d (R-l ) =-r*u (R-2 , n) + (2*r-2*dx2dt) *u (R-l , n) -2*r; 

% Solution by Thomas Algorithm 
ba (2 ) =b (2 ) ; 
ga(2)=d(2)/b(2) ; 
for i=3:R-l 

ba (i) =b (i) -a (i) *c (i-1) /ba (i-1) ; 
ga (i) = (d (i) -a (i) *ga (i-1) ) /ba (i) ; 
end 

% Back substitution step 

u (R-l , n+1 ) =ga (R-l ) ; 
for i=R-2 : -1 : 2 

u (i, n+1) =ga (i) -c (i) *u (i + 1, n+1) /ba (i) ; 
end 

dt=l . l*dt; 

end 

% end of time step loop 


% Plot 

% Storing plot value of u as up, at every 5 time steps 
% j=time index 
% i=space index 

for j =5 : 5 : N+1 
for i=l : R 

up ( i ) =u ( i , j ) ; 

end 

plot (x, up) 
hold on 
end 

grid 

title (' u [xx] =u [t] 0<x<0.5; r (u [xx] ) =u [t] 0.5<x<l; u(0,t)=l, u(l,t)=l, 

u(x,0)=0; u[x]=r(u[x]) x=0 . 5 ' ) 

xlabel('x - ND Space') 

ylabel('u - ND Temperature') 

hold off 

gtext ( ' r=0 . 01 ' ) 


% Storing times for temp, profiles 

% These can be saved in a data file or examined in the command file 

tp=zeros (1, (N-l) /5) ; 
i=l ; 

tp (1) =0; 
for k=5:5:N+l 

i=i+l ; 
tp (i) =t (k) ; 

end 

tp 


tp = 

Columns 1 through 7 


0 

0.0029 

0 . 0085 

0 . 0175 

0 . 0320 

0 . 0553 

0 . 0929 

Columns 8 

through 14 






0 . 1534 

0.2509 

0.4079 

0 . 6607 

1.0679 

1.7238 

2.7799 


Column 15 
4 .4809 


u[xx] = u[t] 0<x<0.5; r(u[xx])=u[t] 0.5<x<1; u(0,t)=1 , u (1 ,t)= 1 , u(x,0)=0; u[x]=r(u[x]) x = 0.5 
1.4 



0 0.1 0.2 0.3 0.4 0.5 0.6 0.7 0.8 0.9 


x - ND Space 


1 


ND Temperature u - ND Temperature 


u[xx] = u[t] 0<x<0.5; r(u[xx])=u[t] 0.5<x<1; u(0,t)=1, u(1,t)=1, u(x,0)=0; u [x] = r(u [x]) x = 0.5 
1 .4 



0 0.1 0.2 0.3 0.4 0.5 0.6 0.7 0.8 0.9 1 

x - ND Space 


xx] = u[t] 0<x<0.5; r(u[xx])=u[t] 0.5<x< 1 ; u(0,t)=1 , u(1 ,t)=1 , u(x,0)=0; u[x]=r(u[x]) x = 0.5 



0 0.1 0.2 0.3 0.4 0.5 0.6 0.7 0.8 0.9 1 

x - ND Space 


ND Temperature ,£, u - ND Temperature 


u[xx] = u[t] 0<x<0.5; r(u[xx])=u[t] 0.5<x<1; u(0,t)=1, u(1,t)=1, u(x,0)=0; u [x] = r(u [x]) x = 0.5 



xx] = u[t] 0<x<0.5; r(u[xx])=u[t] 0.5<x< 1 ; u (0,t)= 1 , u(1 ,t)=1 , u(x,0)=0; u [x]= r(u [x]) x = 0.5 



0 0.1 0.2 0.3 0.4 0.5 0.6 0.7 0.8 0.9 1 

x - ND Space 


32.14 


%EEE Parabolic Problem - Haat conduction in a rod 
% u [ 30 c] +u[yy] =u [t] 

% BC u(0,y,t)=0 u(l,y,t)=l 
% u(x,0,t)=0 u(x,l.t)=l 

% K u(x,y,0)=0 0<=x<l 0<=y<l 

% Crarik-Nicolson Formulation 
% Altematir^-Directicn-ffiplicit Soluticn Method 
% Intermediate values of u stored as ul 
% MMLfiB 5.x Verson with mdtidimensicnal arsys 
% i=spatial index in x-directicn, from 1 to R 

% j=spatial index in y-directicn, from 1 to S 

% n=time index from 1 to N 
R=21; % last x-point 

5=21; % last y-point 

N=20; % last time step = Nfl 

% Constants 
dx=l/(R-l); 
dx2=dx*dx; 
dy=l/ (S-l) ; 
d/2=cy*cy; 
dxdy=dx2/dy2; 
dydx=d/2/dx2; 

dt=dx2; % Settine dt to dx2 for good stabilility and results 

% Independent space variables 
xs=0:dx:l; 
y=0:ty:l; 

% Sizing matrices 
u=zercs(R,S,N); ul=zeros(R,S); 

% u(i,j,n) = present time, ul=first pass intecmedia t e results, u(i,j,rw-l) = next time step 
t=zeros(l,N+l); 

a=zeros(l,R) ; b=zeros (1,R) ; c=zeros(l,R); d=zeros(l,R); 
ba=zeros{l,R); ga=zeros(l,R); 

% Boundary Conditions 
far n=l:N 
far i=l;R 
u(i,S,n)=l 
ad 

far j=l:S 
u(R,j,n)=l; 
ad 
ad 

% Intermediate values 
far i=l:R 
ul(i,S)=l; 
ad 

far j=l:S 
ul(R,j)=l; 
ad 

%Plot Initial Conditions 
nesh(x,y,u(:,:,l)) 

title{ 'u[xx]-iu[yy]=u[t] ; u(0,y,t)=0, u(l,y,t)=l, u(x,0,t)=0,u(x,l,t)=l u(x,y,0)=0') 
xlabel ( 'x-coardinate' ) ; ylabelCy-coordinate') ; zlabel{'u - Temperature') 
pause 

% ************************************************************** 

% lime step loop 

% n=l represents 0 time, iw-1 = next time st^> 

t(l)=0; 
far re=l:N 

t{nfl)=t(n)+2*dt; 



% First pass in x - dixscticn ********************************** 

% first time step - intermediate valus at ul(i, j) are calculated 
% Constants 
dx2dt=dx2/dt; 

% Coefficients 
for j=2:S-l 

b(2)=-2-dx2dt; 

c(2)=l; 

d (2) =-dxi%r*u (2 , j -1 , n) + (2*da^-dx2dt ) *u (2 , j , n) -dsoV*u (2 , j+1 , n) ; 
for i=3:R-2 
a(i)=l; 

b(i)=-2-dx2dt; 

c(i)=l; 

d(i)=-dx^r*u(i, j-l,n) + (2*dxt^-dx2dt)*u(i, j,n)-dx^*u(i, j+l,n) ; 
aid 

a(R-l)=l; 
b (R-l) =-2-dx2dt ; 

d(R-l) =-l-dxity*u (i, j-l,n) + (2*dwV-<3x2dt) *u (i, j ,n) -dxty*u(i, j+l,n) ; 

% Solution hy Thomas Algorithm 
ba(2)=b<2); 
ga{2)=d(2)/b(2); 
for i=3 :R-1 

ba(i)=b(i)-a(i)*c(i-l)/ba(i-l) ; 
ga(i) = (d(i)^a(i) *ga(i-l) ) /ba(i) ; 
aid 

% Back substitution stq> 
ul{R-l, j)=ga(R-l) ; 
for i=R-2:-l:2 

ul(i, j)=ga(i)-c(i)*ul(i+l,j,n)/ba(i) ; 
end 
aid 

% seccrd pass in y— <iir©ct.ion ************************************* 

% Second time step - final valus at u(i,j,n+l) are calculated 
ct/2ct=ct/2/ct; 

% Coefficients 
for i=2:R-l 

b(2)=-2-c^2dt; 

c(2)=l; 

d(2)=-<fyd>c*ul (i-l,2)+(2*<tydx-<ty2dt) *ul (i,2) -tydx*ul (i+1,2) ; 
fear j=3 :S-2 
a(j)=l; 

b(j)=-2-cty2dt; 

c(j)=l; 

d(j)=-<% r d}C*ul(i-l, j) + (2*c^dx-<^2dt)*ul(i, j)-^dx*ul(i+l, j) ; 
aid 

a(S-l)=l; 

b(S-l)=-2-<^2dt; 

d (S-l) =-l-tf^dx*ul (i-l,S-l) + (2*dydx-dy2dt) *ul (i, S-l) -dydx*ul (i+1, S-l) ; 

% Solution hy Thomas Algorithm 
ba(2)=fc>(2) ; 
ga(2)=d(2)/b(2); 
far j=3:S-l 

ba(j)dD(j)^a(j)*c(j-l)/ba(j-l); 

ga(j)=(d(j)-a(j)*ga(j-l))/ba(j); 

end 

% Back substitution step 
u(i,s-l,n+l)=ga(S-l) ; 
far j=S-2:-l:2 

u (i, j ,n+l)=ga ( j ) -c ( j ) *u (i, j+1 ,n+l) /ba( j ) ; 



ad 

% dt can be incranented at this point if desired as dt=l.l*dt 
ad % Erd time step locp 

%**********♦*************************************************************** 
% Plot Results 


rresh(x,y,u(:,: / 10) 

title(’u[xx]+u[yy]=u[t]; u(0,y,t)=0, u(l,y,t)=l, u(x,0,t)=0 f u(x,l,t)=l u(x,y,0)=0') 
xlabeirx-Kxxxdinate'); ylabel('y-axxdinate'); zlabel('u - Tatperature') 


pause 

t(10) 


mesh(x,y,u(:,:,20)) 

title('u[xx]-fu[yy]=u[t] ; u{0,y,t)=0, u(l,y,t)=l, u(x,0,t)=0,u(x,l,t)=l u(x,y,0)=0') 

xlabel ( ' x-coardinate ■ ) ; ylabel( , y-coardinate 1 ); zlabel('u - Tatperature') 

t(20) 


u[xx]+u[yy]=u[t]; u(0,y,t)=0, u(1,y,t)=1, u(x,0,t)=0,u(x,1,t)=1 u(x,y,0)=0 



y-NDSpace 0 0 x-NDSpace 


u[xx]+u[yy]=u[t]; u(0,y,t)=0, u(1,y,t)=1, u(x,0,t)=0,u(x,1,t)=1 u(x,y,0)=0 



y- coordinate 0 0 x- coordinate 


99.27296 

99.15714 

98.55306 

96.07795 

85.75874 

69.00866 

50 

99.38879 

99.40126 

99.48858 

100 

88.97417 

70.13795 

50 

99.47967 

99.57055 

100 

100 

100 

72.56898 

50 

99.38879 

99.40126 

99.48858 

100 

88.97417 

70.13795 

50 

99.27296 

99.15714 

98.55306 

96.07795 

85.75874 

69.00866 

50 


25 

40 

40 

30 



10 

21.87149 

24.04033 

20 

15 


10 

13.44564 

14.28983 

12.63401 

10 

7.5 

10 

7.62124 

7.039322 

6.246222 

5.311556 

5 

5 

0 

0 

0 

0 

2.5 


dhldx 


1.040287 

1.106512 

1.311258 

1 .449779 

1.014349 

1.057395 

1.344371 

1 .5883 

0.931015 

0.778698 

0.62638 



dhldy 


0.040287 

0.066225 

0.138521 

0 

0.054636 

0.109272 

0.38245 

0 

0.068985 

0.152318 

0.62638 



dhldn 


1.041067 

1.108492 

1.318555 

1 .449779 

1.015819 

1.063026 

1.397713 

1 .5883 

0.933568 

0.793455 

0.885835 



6 (radians) 


0.038707 

0.059779 

0.105249 

0 

0.053811 

0.102975 

0.277161 

0 

0.073961 

0.193167 

0.785398 



0 (degrees) 


2.217773 

3.425088 

6.030345 

0 

3.083137 

5.90002 

15.88014 

0 

4.237646 

11.06765 

45 



16.3372 

17.37748 

18.55022 

20 


16.29691 

17.31126 

18.4117 

20 

16.22792 

17.15894 

17.78532 


0 

0 

0 

0 

0 

0 

0.052697 

0.072156 

0.052697 

0 

0 

0.082316 

0.113101 

0.082316 

0 

0 

0.082316 

0.113101 

0.082316 

0 

0 

0.052697 

0.072156 

0.052697 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

-0.27719 

-0.35074 

-0.27719 

0 

0 

-0.39124 

-0.50218 

-0.39124 

0 

0 

-0.39124 

-0.50218 

-0.39124 

0 

0 

-0.27719 

-0.35074 

-0.27719 

0 

0 

0 

0 

0 

0 


20 

1.387741 

0.113952 

0.155496 

0.864874 

0.951623 

0.958962 

20 

1.391891 

0.168488 

0.793428 

6.581653 

6.938975 

6.959813 

20 

1.409973 

0.48078 

6.185917 

100 

100 

100 


c 

dcdx 

J-diff 

J-adv 

J 

76.44 

-9.588 

19.176 

76.44 

95.616 

52.47 

-8.076 

16.152 

52.47 

68.622 

36.06 

-5.484 

10.968 

36.06 

47.028 

25.05 

-3.394 

6.788 

25.05 

31.838 

19.09 

-2.384 

4.768 

19.09 

23.858 



Co 

76.53 

c 5 

29.61 

Cl 

63.25 

c 6 

24.62 

C 2 

52.28 

Cl 

20.69 

Cl 

43.22 

Cs 

17.88 

C4 

35.75 

Cg 

16.58 



CHAPTER 25 


25.1 The analytical solution can be derived by separation of variables 

I ~ = \ x2 ~ ^ 
x 3 

In v = — - 1.2 x + C 
3 

Substituting the initial conditions yields C= 0. Taking the exponential give the final result 


y = e 3 


- 1 . 2 * 


The result can be plotted as 



25.2 Euler’s method with h = 0.5 


X 

y 

dyldx 

0 

l 

-1.2 

0.5 

0.4 

-0.38 

1 

0.21 

-0.042 

1.5 

0.189 

0.19845 

2 

0.288225 

0.80703 


Euler’s method with h = 0.25 gives 


X 

.V 

dyldx 

0 

1 

-1.2 

0.25 

0.7 

-0.79625 

0.5 

0.500938 

-0.47589 

0.75 

0.381965 

-0.2435 

1 

0.321089 

-0.06422 

1.25 

0.305035 

0.110575 

1.5 

0.332679 

0.349312 

1.75 

0.420007 

0.782262 

2 

0.615572 

1.723602 


The results can be plotted along with the analytical solution as 









2 


1 


0 


0 


1 


2 



25.3 For Heun’s method, the value of the slope at x = 0 can be computed as -0.6 which can be used to 
compute the value of y at the end of the interval as 

v(0.5) = 1 + (0 - 1.2(1))0.5 = 0.4 

The slope at the end of the interval can be computed as 
y'(0.5) = 0.4 (0.5) 2 - 12(0.4) = -0.38 


which can be averaged with the initial slope to predict 


y( 0.5) = i+ 


-0.6-0.38 

2 


0.5 = 0.605 


This formula can then be iterated to yield 


j 

yi 


0 

0.4 


1 

0.605 

33.9 

2 

0.5563124 

8.75 

3 

0.5678757 

2.036 

4 

0.5651295 

0.4859 


The remaining steps can be implemented with the result 


Xi 

y- 

0.5 

0.5651295 

1.0 

0.4104059 

1.5 

0.5279021 

2.0 

2.181574 


The results along with the analytical solution are displayed below: 
















25.5 The 4 th -order RK method with h = 0.5 gives 


X 

y 

kl 

ym 

k2 

ym 

k3 

ye 

k4 

phi 

0 

l 

-1.2 

0.7 

-0.79625 

0.800938 

-0.91107 

0.544467 

-0.51724 

-0.85531 

0.5 

0.572344 

-0.54373 

0.436412 

-0.27821 

0.50279 

-0.32053 

0.412079 

-0.08242 

-0.30394 

1 

0.420375 

-0.08407 

0.399356 

0.144767 

0.456567 

0.165505 

0.503128 

0.528284 

0.177459 

1.5 

0.509104 

0.534559 

0.642744 

1.197111 

0.808382 

1.505611 

1.26191 

3.533348 

1.578892 

2 

1.29855 

3.635941 

2.207535 

8.526606 

3.430202 

13.24915 

7.923127 

40.01179 

14.53321 



25.6 (a) The analytical solution can be derived by separation of variables 

f^=fl + ** 

J Jy J 

2 

2 ,,/v = x + — + C 
2 

Substituting the initial conditions yields C = 2. Substituting this value and solving for y gives the 
final result 

(x 2 + 2x + 4) 2 

y = - 

16 


The result can be plotted as 



( b ) Euler’s method with h = 0.5 











0 

1 

1 

0.5 

1.5 

1.837117 

1 

2.418559 

3.110343 


Euler’s method with h = 0.25 gives 


X 

y 

dyldx 

0 

l 

1 

0.25 

1.25 

1.397542 

0.5 

1.599386 

1.897002 

0.75 

2.073636 

2.520022 

1 

2.703642 

3.288551 


The results can be plotted along with the analytical solution as 



(c) For Fleun’s method, the first step along with the associated iterations is 


j 

yt 


0 

1.500000 


1 

1.709279 

12.243720 

2 

1.740273 

1.780954 

3 

1.744698 

2.536284E-01 


The remaining steps can be implemented with the result 


Xi y t 

0.00E+00 1 
5.00E-01 1.744698 

1 3.122586 

The results along with the analytical solution are displayed below: 









X 

y 

dyldx 

ym 

dy/dx-mid 

0 

l 

1 

1.25 

1.397542 

0.5 

1.698771 

1.955054 

2.187535 

2.588305 

1 

2.992924 

3.460014 

3.857927 

4.419362 

with h 

= 0.25 gives 











































25.7 The second-order ODE is transformed into a pair of first-order ODEs as in 


dy 

y( 0)=2 

dx 

dz 

— = x- V 
dx 

z(0)=0 


(a) The first few steps of Euler’s method are 



y 

z 

dy/dx 

dzldx 

0 

2 

0 

0 

-2 

0.1 

2 

-0.2 

-0.2 

-1.9 

0.2 

1.98 

-0.39 

-0.39 

-1.78 

0.3 

1.941 

-0.568 

-0.568 

-1.641 

0.4 

1.8842 

-0.7321 

-0.7321 

-1.4842 

0.5 

1.81099 

-0.88052 

-0.88052 

-1.31099 


(b) For Heun (without iterating the corrector) the first few steps are 


X 

y 

z 

dy/dx 

dz/dx 

yend 

zend 

dy/dx 

dz/dx 

ave slope 

0 

2 

0 

0 

-2 

2 

-0.2 

-0.2 

-1.9 

-0.1 

0.1 

1.99 

-0.195 

-0.195 

-1.89 

1.9705 

-0.384 

-0.384 

-1.7705 

-0.2895 

0.2 

1.96105 

-0.37803 

-0.37803 

-1.76105 

1.923248 

-0.55413 

-0.55413 

-1.62325 

-0.46608 

0.3 

1.914442 

-0.54724 

-0.54724 

-1.61444 

1.859718 

-0.70868 

-0.70868 

-1.45972 

-0.62796 

0.4 

1.851646 

-0.70095 

-0.70095 

-1.45165 

1.781551 

-0.84611 

-0.84611 

-1.28155 

-0.77353 

0.5 

1.774293 

-0.83761 

-0.83761 

-1.27429 

1.690532 

-0.96504 

-0.96504 

-1.09053 

-0.90132 


Both results are plotted below: 



25.8 The second-order ODE is transformed into a pair of first-order ODEs as in 









y( P)=4 



dt 

— = -0.5z-5v z(0)=0 

dt 


The results for the 4 th -order RK method are tabulated and plotted below: 




25.9 (a) The Heun method without iteration can be implemented as in the following table: 


t 

y 

ki 

yend 

k. 

phi 

0 

l 

0 

1 

0.009967 

0.004983 

0.1 

1.000498 

0.009972 

1.001496 

0.039489 

0.02473 

0.2 

1.002971 

0.039587 

1.00693 

0.087592 

0.063589 

0.3 

1.00933 

0.088147 

1.018145 

0.153062 

0.120604 

0.4 

1.021391 

0.15489 

1.03688 

0.234765 

0.194828 

0.5 

• 

1.040874 

0.239244 

1.064798 

0.331852 

0.285548 

• 


• • 


2.9 

4.527257 

0.259141 

4.553171 

0.09016 

0.17465 

3 

4.544722 

0.090507 

4.553773 

0.007858 

0.049183 


(b) The Ralston 2 nd order RK method can be implemented as in the following table: 
t y k i yint k 2 phi 






0 

1 

0 

0.1 

1.000374 

0.00997 

0.2 

1.00273 

0.039577 

0.3 

1.008993 

0.088118 

0.4 

1.021013 

0.154833 

0.5 

• 

1.040573 

0.239175 


2.9 

4.779856 

0.2736 

3 

4.797775 

0.095547 


1 0.005614 0.003743 

1.001122 0.030348 0.023555 

1.005698 0.074158 0.062631 

1.015602 0.136249 0.120205 

1.032626 0.215982 0.195599 

1.058511 0.313061 0.288432 


4.800376 0.131997 0.179198 

4.804941 0.021276 0.046033 


Both methods are displayed on the following plot along with the exact solution. The Ralston 
method performs much better for this case. 



0 12 3 


25.10 The solution results are as in the following table and plot: 


t 

y 

kl 

k2 

kS 

phi 

0 

l 

-1 

-0.6875 

-0.5625 

-0.71875 

0.5 

0.640625 

-0.39063 

0.019531 

0.144531 

-0.02799 

1 

0.626628 

0.373372 

0.842529 

0.967529 

0.78517 

1.5 

1.019213 

1.230787 

1.735591 

1.860591 

1.67229 

2 

1.855358 

2.144642 

2.670982 

2.795982 

2.604092 

2.5 

3.157404 

3.092596 

3.631947 

3.756947 

3.562889 

3 

4.938848 

4.061152 

4.608364 

4.733364 

4.537995 



25.11 (a) Euler 


X 

y 

z 

dy/dx 

dz/dx 

0 

2.0000 

4.0000 

1.00 

-16.00 


0.2 

2.2000 

0.8000 

- 0.31 

- 0.70 

0.4 

2.1387 

0.6592 

- 0.93 

- 0.46 

0.6 

1.9536 

0.5663 

- 1.16 

- 0.31 

0.8 

1.7209 

0.5036 

- 1.20 

- 0.22 

1 

1.4819 

0.4600 

- 1.12 

- 0.16 


( b ) 4th-order RK 


X 

y 

2 

kll 

kl 2 

k 21 

k 22 

k 31 

k 32 

k 41 

k 42 

phil 

phi 2 

0 

2.000 

4.000 

1.000 

- 16.000 

0.324 

- 6.048 

0.459 

- 11.714 

- 0.090 

- 0.123 

0.413 

- 8.608 

0.2 

2.083 

2.278 

- 0.071 

- 5.406 

- 0.447 

- 3.134 

- 0.372 

- 3.934 

- 0.665 

- 1.686 

- 0.396 

- 3.538 

0.4 

2.003 

1.571 

- 0.655 

- 2.472 

- 0.843 

- 1.698 

- 0.806 

- 1.884 

- 0.941 

- 2.438 

- 0.816 

- 2.012 

0.6 

1.840 

1.168 

- 0.937 

- 1.256 

- 1.010 

- 0.950 

- 0.996 

- 1.002 

- 1.036 

- 2.207 

- 0.997 

- 1.228 

0.8 

1.641 

0.923 

- 1.035 

- 0.699 

- 1.042 

- 0.559 

- 1.040 

- 0.577 

- 1.026 

- 1.667 

- 1.038 

- 0.773 

1 

1.433 

0.768 

- 1.027 

- 0.423 

- 0.997 

- 0.351 

- 1.003 

- 0.358 

- 0.960 

- 1.143 

- 0.998 

- 0.497 


Both methods are plotted on the same graph below. Notice how Euler’s method (particularly for 
z) is very inaccurate for this step size. The 4 th -order RK is much closer to the exact solution. 



25.12 d y = n)e 2mi5f _ 06v 
dx 

4 lh -order RK method: 

One step (h = 0.5): vi = 0.3704188 

Two steps ( h = 0.25): yi = 0.3704096 

^present -9.119x10-6 


correction = — = -6.08x10 7 
15 


y 2 = 0.370409 



dx 


Tsca Ie = 0-5 + 0.5(-0.3) = 0.65 








Anew = 0.001(0.65) = 0.00065 


Since A preS ent < A ne w, therefore, increase step. 


^new ^.5| 


0.00065 
9.1 19 x 10 


0.2 


-6 


1.1737 


25.13 We will look at the first step only 

Apresent = }>2 ~ Jl = “0.24335 

— = 4e° - 0.5(2) = 3 
dx 


J^scale 2 + (2(3)) = 8 


Anew =0.001(8) = 0.008 
Because A pr esent > Anew, decrease step. 


25. 14 The calculation of the k’s can be summarized in the following table: 



X 

y 

f(x,y) 

k 

kl 

0 

2 

3 

3 

k2 

0.25 

2.75 

3.510611 

3.510611 

k3 

0.375 

3.268609 

3.765131 

3.765131 

k4 

0.923077 

5.636774 

5.552467 

5.552467 

k5 

1 

5.878223 

5.963052 

5.963052 

k6 

0.5 

3.805418 

4.06459 

4.06459 


These can then be used to compute the 4 ,h -order prediction 


f 25 1408 2197 1 t 

yi = 2+ —3+ 3.765131 + — —5.552467 --5.963052 1 = 6.193807 

1 216 2565 4104 5 


along with a fifth-order formula: 


Ti = 2 + 


16 


3 + 


6656 


A 


3.765 13 1 + 28,561 5.552467 - — 5.963052 + — 4.06459 
56,430 50 55 j 


135 12,825 

The error estimate is obtained by subtracting these two equations to give 
E„ = 6.194339 - 6.193807 = 0.000532 


1 = 6.194339 


25.15 

Option Explicit 
Sub EulerTest ( ) 

Dim i As Integer, m As Integer 

Dim xi As Single, yi As Single, xf As Single, dx As Single, xout As Single 
Dim xp(200) As Single, yp(200) As Single 
'Assign values 
yi = 1 
xi = 0 




xf = 4 
dx = 0.5 
xout = 0.5 

' Perform numerical Integration of ODE 

Call ODESolver (xi, yi, xf, dx, xout, xp ( ) , yp ( ) , m) 

' Display results 
Sheets ("Sheetl") .Select 
Range ( "a5 :b205" ) . ClearContents 
Range ("a5") .Select 
For i = 0 To m 

ActiveCell . Value = xp(i) 

ActiveCell .Of fset (0, 1). Select 
ActiveCell .Value = yp(i) 

ActiveCell .Of fset (1, -1). Select 
Next i 

Range ("a5") .Select 
End Sub 

Sub ODESolver (xi, yi, xf, dx, xout, xp, yp, m) 

'Generate an array that holds the solution 
Dim x As Single, y As Single, xend As Single 
Dim h As Single 
m = 0 

xp (m) = xi 
yp (m) = yi 
x = xi 
Y = yi 

Do ' Print loop 

xend = x + xout 

If (xend > xf) Then xend = xf 'Trim step if increment exceeds end 
h = dx 

Call Integrator (x, y, h, xend) 
m = m + 1 
xp (m) = x 
yp (m) = y 

If (x >= xf) Then Exit Do 
Loop 
End Sub 

Sub Integrator (x, y, h, xend) 

Dim ynew As Single 
Do 'Calculation loop 

If (xend - x < h) Then h = xend - x 'Trim step if increment exceeds end 
Call Euler (x, y, h, ynew) 
y = ynew 

If (x >= xend) Then Exit Do 
Loop 
End Sub 

Sub Euler (x, y, h, ynew) 

Dim dydx As Single 
'Implement Euler's method 
Call Derivs (x, y, dydx) 
ynew = y + dydx * h 
x = x + h 
End Sub 

Sub Derivs (x, y, dydx) 

'Define ODE 

dydx =-2*x A 3+12* 

End Sub 


x 


2 


20 * x + 8.5 



25.16 Example 25.1: 



Example 25.4 (nonlinear model). Change time steps and initial conditions to 

'Assign values 
yi = 0 
xi = 0 
xf = 15 
dx = 0.5 
xout = 1 

Change Derivs Sub to 

Sub Derivs (t, v, dvdt) 

'Define ODE 

dvdt = 9.8 - 12.5 / 68.1 * (v + 8.3 * (v / 46) A 2.2) 

End Sub 



A 

B 

C 

D 

E 

4 

X 

Y 




5 

0 

0 




6 

1 

9.34477 




7 

2 

16.98754 




8 

3 

23.1603 




9 

4 

28.08878 




10 

5 

31.98533 




11 

6 

35.04111 




12 

7 

37.42184 




13 

8 

39.26696 




14 

9 

40.69109 




15 

10 

41.78674 




16 

11 

42.62757 




17 

12 

43.2716 




18 

13 

43.76415 




19 

14 

44.14042 




20 

15 

44.42762 






25.17 

Option Explicit 
Sub RK4Test ( ) 

Dim i As Integer, m As Integer 

Dim xi As Single, yi As Single, xf As Single, dx As Single, xout As Single 
Dim xp(200) As Single, yp(200) As Single 

'Assign values 
yi = 1 
xi = 0 
xf = 4 
dx = 0.5 
xout = 0.5 

' Perform numerical Integration of ODE 

Call ODESolver (xi, yi, xf, dx, xout, xp ( ) , yp ( ) , m) 

'Display results 
Sheets ("Sheetl") .Select 
Range ( "a5 :b205" ) . ClearContents 
Range ("a5") .Select 
For i = 0 To m 

ActiveCell . Value = xp(i) 


ActiveCell .Offset (0, 1). Select 
ActiveCell .Value = yp(i) 

ActiveCell .Offset (1, -1). Select 
Next i 

Range ("a5") .Select 
End Sub 

Sub ODESolver (xi , yi, xf, dx, xout, xp, yp, m) 

'Generate an array that holds the solution 
Dim x As Single, y As Single, xend As Single 
Dim h As Single 
m = 0 

xp (m) = xi 
yp (m) = yi 
x = xi 
y = yi 

Do 'Print loop 

xend = x + xout 

If (xend > xf) Then xend = xf 'Trim step if increment exceeds end 
h = dx 

Call Integrator (x, y, h, xend) 
m = m + 1 
xp (m) = x 
yp(m) = y 

If (x >= xf) Then Exit Do 
Loop 
End Sub 

Sub Integrator (x, y, h, xend) 

Dim ynew As Single 
Do 'Calculation loop 

If (xend - x < h) Then h = xend - x 'Trim step if increment exceeds end 
Call RK4 (x, y, h, ynew) 
y = ynew 

If (x >= xend) Then Exit Do 
Loop 
End Sub 

Sub RK4 (x, y, h, ynew) 

' Implement RK4 method 

Dim kl As Single, k2 As Single, k3 As Single, k4 As Single 

Dim ym As Single, ye As Single, slope As Single 

Call Derivs (x, y, kl) 

ym = y + kl * h / 2 

Call Derivs (x + h / 2, ym, k2) 

ym = y + k2*h/2 

Call Derivs (x + h / 2, ym, k3) 

ye = y + k3 * h 

Call Derivs (x + h, ye, k4) 

slope = (kl + 2 * (k2 + k3) + k4) / 6 

ynew = y + slope * h 

x = x + h 

End Sub 

Sub Derivs (x, y, dydx) 

'Define ODE 

dydx =-2*x A 3+12*x A 2-20*x+ 8.5 
End Sub 

25.18 Example 25.1: 



Example 25.5 Change time steps and initial conditions to 


'Assign values 

yi = 2 

xi = 0 

xf = 4 

dx = 1 

xout = 1 

Change Derivs Sub to 

Sub Derivs (x, y, dydx) 

'Define ODE 

dydx = 4 * Exp (0.8 * x) - 0.5 * y 
End Sub 



A 

B 

C 

D 

E 

F 

G 1 H I 1 1 J 

4 

X 

y 




50 


5 

01 

0 





6 

i 

8.940161 




40 


7 

2 

16.30683 





8 

3 

22.31247 




30 


9 

4 

27.16182 






10 

5 

31 .04566 




20 - 


11 

6 

34.13524 






12 

7 

36.57947 




10 


13 

8 

38.50458 






14 

9 

40.01546 




0 

t 1 1 1 1 

15 

10 

41.19793 





5 10 15 20 

16 

11 

42.12132 






17 

12 

42.84114 




18 

13 

43.40151 




19 

14 

43.83729 




20 

15 

44.1759 





25.19 

Option Explicit 
Sub RK4SysTest ( ) 

Dim i As Integer, m As Integer, n As Integer, j As Integer 

Dim xi As Single, yi(10) As Single, xf As Single, dx As Single, xout As Single 
Dim xp(200) As Single, yp(200, 10) As Single 

'Assign values 
n = 2 
xi = 0 
xf = 2 
yi (1) = 4 
yi (2 ) = 6 
dx = 0.5 
xout = 0.5 

' Perform numerical Integration of ODE 

Call ODESolver (xi, yi ( ) , xf, dx, xout, xp ( ) , yp ( ) , m, n) 

' Display results 
Sheets ("Sheetl") .Select 
Range ( "a5 : n205" ) . ClearContents 
Range ("a5") .Select 
For i = 0 To m 

ActiveCell . Value = xp(i) 

For j = 1 To n 

ActiveCell .Offset (0, 1). Select 
ActiveCell .Value = yp(i, j) 

Next j 

ActiveCell .Offset (1, -n). Select 
Next i 

Range ("a5") .Select 
End Sub 

Sub ODESolver (xi , yi, xf, dx, xout, xp, yp, m, n) 

'Generate an array that holds the solution 
Dim i As Integer 


Dim x As Single, y(10) As Single, xend As Single 
Dim h As Single 
m = 0 
x = xi 

' set initial conditions 
For i = 1 To n 
y (i) = yi (i) 

Next i 

' save output values 
xp (m) = x 
For i = 1 To n 
yp(m, i) = y(i) 

Next i 

Do ' Print loop 

xend = x + xout 

If (xend > xf) Then xend = xf 'Trim step if increment exceeds end 
h = dx 

Call Integrator (x, y(), h, n, xend) 
m = m + 1 

' save output values 
xp (m) = x 
For i = 1 To n 
yp(m, i) = y(i) 

Next i 

If (x >= xf) Then Exit Do 
Loop 
End Sub 

Sub Integrator (x, y, h, n, xend) 

Dim j As Integer 

Dim ynew(10) As Single 

Do 'Calculation loop 

If (xend - x < h) Then h = xend - x 'Trim step if increment exceeds end 
Call RK4Sys (x, y, h, n, ynew ( ) ) 

For j = 1 To n 
y(j) = ynew(j) 

Next j 

If (x >= xend) Then Exit Do 
Loop 
End Sub 


Sub RK4Sys(x, y, h, n, ynew) 

Dim j As Integer 

Dim dydx(10) As Single 


Dim ym(10) , ye (10) 

Dim kl ( 10 ) , k2 (10) , k3(10), k4(10) 
Dim slope ( 10 ) 


' Implement RK4 method 

for 

systems 

Call Derivs (x, y, kl ( ) 
For j = 1 To n 

) 


ym ( j ) = y ( j ) + kl (j) 
Next j 

* h 

/ 2 

Call Derivs (x + h / 2, 
For j = 1 To n 

ym. 

k2() ) 

ym ( j ) = y ( j ) + k2 (j) 
Next j 

* h 

/ 2 

Call Derivs (x + h / 2, 
For j = 1 To n 

ym. 

k3() ) 

ye ( j ) = y ( j ) + k3 ( j ) 
Next j 

* h 


Call Derivs (x + h, ye, 
For j = 1 To n 

k4 ( 

) ) 

slope ( j ) = ( kl ( j ) + 

2 * 

<k2 (j) 


Next j 

For j = 1 To n 

ynew(j) = y(j) + slope (j) * h 
Next j 
x = x + h 


of ODEs 


k3(j) ) 


+ 


k4 (j) ) 


/ 6 


End Sub 



Sub Derivs (x, y, dydx) 

'Define ODE 

dydx ( 1 ) = -0.5 * y(l) 

dydx ( 2 ) = 4 - 0.3 * y(2) - 0.1 * y(l) 

End Sub 


Application to Example 25.10: 



25.20 Main Program: 

%Damped spring mass system 
%mass: m=10 kg 

%damping: c=5,40,200 N/(m/s) 

%spring: k=40 N/m 

% MATLAB 5 version 

%Independent Variable t, tspan= [ tstart tstop] 

%initial conditions [x (1) =velocity, x (2 ) =displacement] ; 

tspan=[0 15]; ic=[0 1]; 

global cm km 

m= 1 0 ; c (1) =5; c(2)=40; c(3)=200; k=40; 
km=k/m; 

for n=l : 3 

cm=c (n) /m 

[t, x] =ode4 5 ( ' kc ' , tspan, ic) ; 
plot (t,x ( : , 2) ) ; grid; 

xlabel('time - sec.'); ylabel (' displacement - m'); 
title ( 'm (d2x/dt2) +c (dx/dt) +kx=0; m=10 kg, k= 40 N/m') 
hold on 

end 

gtext ( ' c=5 ' ) ; gtext ( ' cc=40 ' ) ; gtext ( ' c=200 N/ (m/s) ' ) 

Function ‘kc’: 

%Damped spring mass system - m d2x/dt2 + c dx/dt + k x = 
%mass: m=10 kg 

%damping: c=5,40,200 N/(m/s) 

%spring: k=40 N/m 
%x ( 1 ) =velocity, x (2 ) =dispacement 

function dx=kc(t,x); 
global cm km 

dx= [-cm*x (1) -km*x (2) ; x(l)]; 



0 5 10 15 

time - sec. 


25.21 The Matlab program on the following pages performs the Euler Method and the plots 
shows the depth of the water vs. time. From the plot, we approximate that it takes about 
58 minutes to drain the cylindrical tank. 

%euler . m 
dt=0 . 5 ; 
max=60 ; 
n=max/ dt+1 ; 
t=zeros (1 , n) ; 
y=zeros (1 , n) ; 
t (1) =0; 
y (1) =9; 
for i=l : n 

y (i+1) =y (i) +dydt (t (i) , y (i) ) *dt; 
t (i+1) =t (i) +dt; 

end 

plot (t, y) 
grid 

xlabel ( ' Time-minutes ' ) 

ylabel (' Depth of the Water-ft') 

title ('How Long Does it Take to Drain a 9-ft high Cylindrical 

Tank? ' ) 

zoom 

function dy=dydt (t, y) ; 
dy=-0 . l*sqrt (y) ; 



.22 


x = x(\) 
dx 

v = — = x(2) 
dt 


dv d 


dt dt 
dx( 1) 


dx 


V 


dt 

= x(2) 


d 2 x 

dt 2 


= -5x(l)x(2) - (x(\) + 7) sin(?) 


dt 

dx( 2) 
dt 

x(l)(? = 0) = 6 
x(2 )(t - 0) = 1.5 


tspan= [0,15] ' ; 
x0= [6, 1.5]'; 

[t, x] =ode45 ( ' dxdt ' , tspan, xO) ; 
plot (t, x ( : , 1) , t, x ( : , 2) , ' — ') 
grid 

title (' Displacement and Velocity Versus Time') 
xlabel ( ' Time, t') 

ylabel (' Displacement and Velocity') 
gtext ( ' displacement ' ) 
gtext ( 'velocity' ) 


function dx=dxdt(t,x) 

dx= [x (2 ) ;-5*x(l) *x (2) + (x (1) +7) *sin(l*t) ] ; 




0 5 10 15 

Tim e, t 


CHAPTER 26 


26.1 (a) h < 2/100,000 = 2xl0“ 5 . 

(. b ) The implicit Euler can be written for this problem as 


y i+l = y\ + j- 100,000y,. +l + 100,000e x ‘ +1 - e x ‘*' J h 


which can be solved for 


y i+ 1 = 


y t + 100,000e Xi+ 'h -e 
1 + 100,000/7 


h 


The results of applying this formula for the first few steps are shown below. A plot of the entire 
solution is also displayed 


X 

y 

0 

0 

0.1 

1.904638 

0.2 

1.818731 

0.3 

1.740819 

0.4 

1.67032 

0.5 

1.606531 



26.2 The implicit Euler can be written for this problem as 

y i+ 1 = y t + ( 3 °( sin * i+ i - y M ) + 3 cos t M ) h 

which can be solved for 


y i+ 1 


y t + 30 sin t i+ ^h + 3cos t M h 
1 + 30/7 


The results of applying 

this formula are tabulated and graphed below. 


x y x 

y x 

y x 

y 

0 0 

1.2 0.952306 

2.4 0.622925 

3.6 -0.50089 

0.4 0.444484 

1.6 0.993242 

2.8 0.270163 

4 -0.79745 

0.8 0.760677 

2 0.877341 

3.2 -0.12525 




x i,M= x U +(999x v +1999 X 2 .)h 
X 2 ;+l - X 2i + ( - lOOOXj ; - 2000x 2 , ) h 


Because the step-size is much too large for the stability requirements, the solution is unstable, 


t xl x2 dxl dx2 


0 

1 

1 

2998 

-3000 

0.05 

150.9 

-149 

-147102 

147100 

0.1 

-7204.2 

7206 

7207803 

-7207805 

0.15 

353186 

-353184 

-3.5E+08 

3.53E+08 

0.2 

-1.7E+07 

17305943 

1.73E+10 

-1.7E+10 


(b) The implicit Euler can be written for this problem as 

x U+i =x i,i + [" 9x i,M + l999x 2j + \) h 
x 2,i+l = X 2j +(- 1 000*1, + 1 - 2000x 2 , +1 )h 


or collecting terms 

(1 - 999//)* u +1 - I999hx 2 j+l = * u 

1000 / 7 *! . +1 + (1 + 2000 / i )* 9 i+ j = * 2i 

or substituting h = 0.05 and expressing in matrix format 


48.95 -99.95 
50 101 


M,/+l 

x 2f+l 


A u 

* 2 , 


Thus, to solve for the first time step, we substitute the initial conditions for the right-hand side 
and solve the 2x2 system of equations. The best way to do this is with LU decomposition since 
we will have to solve the system repeatedly. For the present case, because its easier to display, 
we will use the matrix inverse to obtain the solution. Thus, if the matrix is inverted, the solution 
for the first step amounts to the matrix multiplication, 


j X UM 

\ X 2J + 1 


1.886088 

-0.93371 


1.86648 

-0.9141 


3.7525681 
- 1.84781} 



For the second step (from* = 0.05 to 0.1), 


[ X l ,!+1 I _ 

' 1.886088 

1.86648 ' 

3.7525681 

3.62878 

1 * 2, >1 j 

-0.93371 

-0.9141 

- 1.8478 1J “ 

— 1.81472 


The remaining steps can be implemented in a similar fashion to give 


t 

xl 

x2 

0 

1 

1 

0.05 

3.752568 

-1.84781 

0.1 

3.62878 

-1.81472 

0.15 

3.457057 

-1.72938 

0.2 

3.292457 

-1.64705 


The results are plotted below, along with a solution with the explicit Euler using a step of 0.0005. 


4 


rr 


2 



0 

-2 


t 


0.1 


0.2 

— o 


*2 


26.4 First step: 

Predictor: 

ji°=5. 2221 38+[-0. 5(4. 143883)+e“ 2 ]l = 3.285532 
Corrector: 

v , 1 = 4.143883 + - 0-5(4.143883) + g - 2 -0.5(3285532) + ^ Q5 = 3 ^ 

2 

The corrector can be iterated to yield 


j 

jW 

K|,% 

1 

3.269562 


2 

3.271558 

0.061 


Second step: 

Predictor: 

j2 0 = 4.143883+[-0.5(3.271558)+e“ 25 ]l = 2.590189 
Predictor Modifier: 


j 2 ° = 2.590189+4/5(3.271558-3.285532) = 2.579010 


Corrector: 


i , , - 0.5(3.271558) + <T 2 ' 5 - 0.5(2.579010) + e" 3 

y 0 — 3.Z/1JJO+ 

2 


The corrector can be iterated to yield 


j jW |e a |,% 

1 2.573205 

2 2.573931 0.0282 

26.5 

predictor = 3.270674927 

Corrector Iteration 
x y ea 

2.5 3.274330476 1.12E-01 

2.5 3.273987768 1.05E-02 

2.5 3.274019897 9.81E-04 


predictor = 2.576436209 

Corrector Iteration 


x 

3 

3 

3 

3 


y 

2.57830404 

2.578128931 

2.377128276 

2.377202366 


ea 

7 . 24E-02 
6.79E-03 
3.32E-02 
3 . 12E-03 


(*0 AjtXf- 


pJuAlcXry 

■^4 5 = O'tSWW + -F(^ (l) =. a. 

+ F Z fs ) _ a . 


4 (.5?22.£, 


C. _ 0 . fa !» 5 9 . , 

- — * loo = 0 . S fc /e < | »/„ 

O.tbSqiZta I 


N a^dr Tfcop 


- 0' T £ ’ +• ^ (4.5 J 0 itfcW » z 4) (0 - a.to ionr 

fls- = o.fcoa.oi?2_ 4-_£ (o.us't 224 - o.itqcy zq) 

•*■ O'S^Om 


U^ s ■*- 0*665? *24 +■ 


■F(*-5jQ-ttSlZl£)± A ^0H\) , ^ 
*•/'/* 


(b) 

predictor = 0.669232229 

Corrector Iteration 


2.573205 



X 

y 

ea 

et 

4.5 

0 . 666462335 

4 . 16E-01 

0 . 030654791 

4.5 

0.666577747 

1 .73E-02 

0 . 013342954 

4.5 

0 . 666572938 

7 . 21E-04 

0 . 014064281 


predictor = 0.601036948 

Corrector Iteration 
x y ea 

5 0.599829531 2.01E-01 

5 0.599874809 7.55E-03 


et 

0.028411529 

0.020865171 
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26.8 

predictor = 0.737731653 

Corrector Iteration 


x 

2 

2 

2 

2 

predictor 

Corrector 


y 

0.660789924 

0.665598782 

0.665298229 

0.665317013 

0.585786168 

Iteration 


x 


y 


ea 

1 . 16E+01 
7 . 22E-01 
4.52E-02 
0 . 002823406 


ea 



2.5 

2.5 

2.5 


0.569067395 

0.569963043 

0.569915062 


2 . 94E+00 
1 .57E-01 
8 . 42E-03 


26.9 

Option Explicit 

Sub SimpImplTest ( ) 

Dim i As Integer, m As Integer 

Dim xi As Single, yi As Single, xf As Single, dx As Single, xout As Single 
Dim xp(200) As Single, yp(200) As Single 

'Assign values 
yi = 0 
xi = 0 
xf = 0.4 
dx = 0.05 
xout = 0.05 

' Perform numerical Integration of ODE 

Call ODESolver (xi, yi, xf, dx, xout, xp ( ) , yp ( ) , m) 

' Display results 
Sheets ("Sheetl") .Select 
Range ( "a5 :b205" ) . ClearContents 
Range ("a5") .Select 
For i = 0 To m 

ActiveCell . Value = xp(i) 

ActiveCell .Offset (0, 1). Select 
ActiveCell .Value = yp(i) 

ActiveCell .Offset (1, -1). Select 
Next i 

Range ("a5") .Select 
End Sub 

Sub ODESolver (xi, yi, xf, dx, xout, xp, yp, m) 

'Generate an array that holds the solution 
Dim x As Single, y As Single, xend As Single 
Dim h As Single 
m = 0 

xp (m) = xi 
yp (m) = yi 
x = xi 
Y = yi 

Do 'Print loop 

xend = x + xout 

If (xend > xf) Then xend = xf 'Trim step if increment exceeds end 
h = dx 

Call Integrator (x, y, h, xend) 
m = m + 1 
xp (m) = x 
yp (m) = y 

If (x >= xf) Then Exit Do 
Loop 
End Sub 

Sub Integrator (x, y, h, xend) 

Dim ynew As Single 
Do 'Calculation loop 

If (xend - x < h) Then h = xend - x 'Trim step if increment exceeds end 
Call Simplmpl (x, y, h, ynew) 
y = ynew 

If (x >= xend) Then Exit Do 
Loop 
End Sub 

Sub Simplmpl (x, y, h, ynew) 

' Implement Simple Implicit method 
ynew = (y + h * FF(x)) / (1 + 1000 * h) 
x = x + h 
End Sub 



Function FF (t) 

'Define Forcing Function 
FF = 3000 - 2000 * Exp(-t) 
End Function 


4 

X 

y 




5 

0 

0 


RUN 


6 

0.05 

0.980392 



7 

0.1 

1 .095244 




8 

0.15 

1.188461 




9 

0.2 

1.276817 




10 

0.25 

1 .360858 




11 

0.3 

1 .4408 




12 

0.35 

1.516843 




13 

0.4 

1.589177 




14 






15 






16 








26.10 All linear systems are of the form 

dy i „ 

= a u y\+a n y 2 + F\ 
dt 

dy 2 

~7T _ a 2lTl + a 22. v 2 + F 2 

dt 

As shown in the book (p. 730), the implicit approach amounts to solving 

1-tfn/z -an {Awl {h,i+^J 

. - fl 21 1 - «22 /? J 1 v 2 , 1+ 1 J 1^2./ + F 2 h \ 


Therefore, for Eq. 26.6: an = -5, an = 3, a 2 i = 100, a 22 = -301, Fi =, and F 2 = 0, 
" 1 + 5/7 -3 ibu+il _ \y\A 

L-ioo i+ ^Wit"iM 


A VBA program written in these terms is 

Option Explicit 
Sub Stiff SysTest ( ) 

Dim i As Integer, m As Integer, n As Integer, j As Integer 

Dim xi As Single, yi(10) As Single, xf As Single, dx As Single, xout As Single 
Dim xp(200) As Single, yp(200, 10) As Single 

'Assign values 
n = 2 
xi = 0 
xf = 0.4 
yi ( 1 ) = 52.29 
yi (2 ) = 83.82 
dx = 0.05 
xout = 0.05 

' Perform numerical Integration of ODE 
Call ODESolver (xi, yi ( ) , xf, dx, xout, 

'Display results 
Sheets ("Sheetl") .Select 
Range ( "a5 : n205" ) . ClearContents 
Range ("a5") .Select 
For i = 0 To m 


xp() 


yp ( ) , m, n) 


ActiveCell . Value = xp(i) 

For j = 1 To n 

ActiveCell .Of fset (0, 1). Select 
ActiveCell .Value = yp(i, j) 

Next j 

ActiveCell .Of fset (1, -n). Select 
Next i 

Range ("a5") .Select 
End Sub 

Sub ODESolver (xi, yi, xf, dx, xout, xp, yp, m, n) 

'Generate an array that holds the solution 
Dim i As Integer 

Dim x As Single, y(10) As Single, xend As Single 
Dim h As Single 
m = 0 
x = xi 

' set initial conditions 
For i = 1 To n 
y (i) = yi (i) 

Next i 

' save output values 
xp (m) = x 
For i = 1 To n 
yp(m, i) = y(i) 

Next i 

Do ' Print loop 

xend = x + xout 

If (xend > xf) Then xend = xf 'Trim step if increment exceeds end 
h = dx 

Call Integrator (x, y(), h, n, xend) 
m = m + 1 

' save output values 
xp (m) = x 
For i = 1 To n 
yp(m, i) = y(i) 

Next i 

If (x >= xf) Then Exit Do 
Loop 
End Sub 

Sub Integrator (x, y, h, n, xend) 

Dim j As Integer 

Dim ynew(10) As Single 

Do 'Calculation loop 

If (xend - x < h) Then h = xend - x 'Trim step if increment exceeds end 
Call StiffSys (x, y, h, n, ynew()) 

For j = 1 To n 
y ( j ) = ynew(j) 

Next j 

If (x >= xend) Then Exit Do 
Loop 
End Sub 

Sub StiffSys (x, y, h, n, ynew) 

Dim j As Integer 

Dim FF(2) As Single, b(2, 2) As Single, c(2) As Single, den As Single 
Call Force (x, FF()) 

'MsgBox "pause" 

b (1, 1) = 1 + 5 * h 
b (1, 2) = -3 * h 
b (2 , 1) = -100 * h 
b (2, 2) = 1 + 301 * h 
For j = 1 To n 

c ( j ) = y ( j ) + FF ( j ) * h 
Next j 

den = b (1, 1) * b(2, 2) - b(l, 2) * b(2, 1) 
ynew ( 1 ) = (c ( 1 ) * b(2, 2) - c(2) * b(l, 2)) / den 
ynew (2 ) = (c (2 ) * b(l, 1) - c(l) * b(2, 1)) / den 
x = x + h 
End Sub 



Sub Force (t, FF) 

'Define Forcing Function 
FF ( 0 ) = 0 
FF ( 1 ) = 0 
End Sub 


The result compares well with the analytical solution. If a smaller step size were used, the 
solution would improve 



A 

B 

c 

0 

E 

F 

G 

i H | 1 J | K 

1 

Example 25.10 







2 







100 


3 









4 

X 

yi 

y2 




75 

) T-.-yJ 

5 

0 

52.29 

83.82 


RUN 


\ ~ V2 { 

6 

0.05 

43.39626 

14.61116 



50 


7 

0.1 

35.5619 

11.9733 





8 

0.15 

29.1419 

9.811755 




25 


9 

ID 

0.2 
0 25 

23.88091 
19 56968 

8.040438 
6 588894 






ii 

0.3 

16.03671 

5.399384 




0 

1 1 1 1 

12 

0.35 

13.14156 

4.424619 




0 0.1 0.2 0.3 0.4 

13 

0.4 

10.76908 

3.625831 







26.11 (Errata for first printing) Last sentence of problem statement should read: Test the program 
by duplicating Example 26.4. Later printings should have this correction. 

Option Explicit 

Sub NonSelf StartHeun ( ) 

Dim n As Integer, m As Integer, i As Integer, iter As Integer 
Dim iterp(lOOO) As Integer 

Dim xi As Single, xf As Single, yi As Single, h As Single 

Dim x As Single, y As Single 

Dim xp(1000) As Single, yp(1000) As Single 

xi = -1 
xf = 4 

yi = -0.3929953 
n = 5 

h = (xf - xi) / n 
x = xi 
y = yi 
m = 0 
xp (m) = x 
yp (m) = y 

Call RK4 (x, y, h) 

m = m + 1 
xp (m) = x 
yp (m) = y 
For i = 2 To n 

Call NSSHeun(xp(i -2), yp(i - 2), xp(i - 1), yp(i - 1), x, y, h, iter) 
m = m + 1 
xp (m) = x 
yp(m) = y 
iterp (m) = iter 
Next i 

Sheets("NSS Heun" ). Select 
Range ("a5") .Select 
For i = 0 To m 

ActiveCell . Value = xp(i) 

ActiveCell .Offset (0, 1). Select 
ActiveCell .Value = yp(i) 

ActiveCell .Offset (0, 1). Select 
ActiveCell . Value = iterp (i) 

ActiveCell .Offset (1, -2). Select 
Next i 


Range ("a5") .Select 
End Sub 

Sub RK4 (x, y, h) 

' Implement RK4 method 

Dim kl As Single, k2 As Single, k3 As Single, k4 As Single 

Dim ym As Single, ye As Single, slope As Single 

Call Derivs (x, y, kl) 

ym = y + kl*h/2 

Call Derivs (x + h / 2, ym, k2) 

ym = y + k2*h/2 

Call Derivs (x + h / 2, ym, k3) 

ye = y + k3 * h 

Call Derivs (x + h, ye, k4) 

slope = (kl + 2 * ( k2 + k3) + k4) / 6 

y = y + slope * h 

x = x + h 

End Sub 

Sub NSSHeun(xO, yO, xl, yl, x, y, h, iter) 

' Implement Non Self-Starting Heun 
Dim i As Integer 
Dim y2 As Single 

Dim slope As Single, kl As Single, k2 As Single 
Dim ea As Single 
Dim y2p As Single 

Static y2old As Single, y2pold As Single 
Call Derivs (xl, yl, kl) 
y2 = yO + kl * 2 * h 
y2p = y2 

If iter > 0 Then 

y2 = y2 + 4 * (y2old - y2pold) / 5 
End If 
x = x + h 
iter = 0 
Do 

y2old = y2 

Call Derivs (x, y2, k2) 
slope = (kl + k2) / 2 
y2 = yl + slope * h 
iter = iter + 1 

ea = Abs((y2 - y2old) / y2) * 100 
If ea < 0.01 Then Exit Do 
Loop 

y = y2 - (y2 - y2p) / 5 
y2old = y2 
y2pold = y2p 
End Sub 

Sub Derivs (x, y, dydx) 

'Define ODE 

dydx = 4 * Exp (0.8 * x) - 0.5 * y 
End Sub 



26.12 



A 

B 

C 

D 

E 

F G i H ; 1 J i K L M 

1 







2 






1.6 


3 




RUN 



4 

X 

y 



D ~"- 12 


5 

-0.25 

1 .2773550 




6 

-0.1 

1.1048030 






7 

0.05 

0.9511114 




0.8 


8 

0.2 

0.8207201 





9 

0.35 

0.7146302 




0.4 


10 

0.5 

0.6321566 





11 








12 








-0.25 0 0.25 0.5 

13 






14 






15 








26.13 Use Matlab to solve 

tspan= [0,5] ' ; 
x0= [0,0.5] ' ; 

[t, x] =ode45 ( ' dxdt ' , tspan, xO) ; 
plot (t, x ( : , 1 ) , t, x ( : , 2) , ' — ' ) 
grid 

title ('Angle Theta and Angular Velocity Versus Time') 
xlabel ( ' Time, t') 

ylabel (' Theta (Solid) and Angular Velocity (Dashed) ') 

axis ( [ 0 2 0 10 ] ) 

zoom 

function dx=dxdt(t,x) 
dx= [x (2 ) ; (9. 8/0. 5) *x(l) ] ; 



0 0.2 0.4 0.6 0.8 1 1.2 1.4 1.6 1.8 2 

Time, t 


Angle Theta and Angular Velocity Versus Time 



0.6 0.7 0.8 0.9 1 1.1 1.2 1.3 1.4 1.5 

Time, t 


26.14 Analytic solution: x = 6.004e“ 500 ' -2.004<?“ r 


t= [0 : . 01 : . 02] ; 

x=6 . 004*exp (-500*t)-2. 004*exp (-t) ; 

plot (t, x) 

grid 

xlabel ( ' t ' ) 
ylabel ( ' x ' ) 

title (' Analytic Solution : Fast Transient') 
gtext ( ' 6.004e A -500t-2.004 e A -t') 


t= [0.02: .01:5] ; 

x=6 . 004*exp (-500*t) -2 . 004*exp (-t) ; 

plot (t, x) 

grid 

xlabel ( ' t ' ) 
ylabel ( ' x ' ) 

title (' Analytic Solution: Slow Transition') 
gtext ('6.004e A -500t-2.004 e A -t') 


Analytic Solution: Fast Transient 
























6.004e 

Ol 

o 

o 

rb 

004 e't 





































0 0.002 0.004 0.006 0.008 0.01 0.012 0.014 0.016 0.018 0.02 

t 



0 0.5 1 1.5 2 2.5 3 3.5 4 4.5 5 

t 


Numerical solution: 

tspan= [0 5 ] ; 
xo= [ 4 ] ; 

[t, x] =ode23s ( ' eqn ' , tspan, xo) ; 
plot (t, x) 
grid 

xlabel ( ' t ' ) 
ylabel ( ' x ' ) 

title (' Numerical Solution: Fast Transient') 
axis ( [ 0 .02 -2 4 ] ) 

tspan= [0 5 ] ; 
xo= [ 4 ] ; 

[t, x] =ode23s ( ' eqn ' , tspan, xo) ; 
plot (t, x) 
grid 

xlabel ( ' t ' ) 
ylabel ( ' x ' ) 

title (' Numerical Solution: Slow Transition') 
axis ([0.02 5 -2 0] ) 


Numerical Solution: Fast Transient 



0 0.002 0.004 0.006 0.008 0.01 0.012 0.014 0.016 0.018 0.02 

t 
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CHAPTER 27 


27.1 The solution can be assumed to be 7= e l \ This, along with the second derivative 7” = X 2 e ,; \ can 
be substituted into the differential equation to give 

X 2 e Xx -O.le^ =0 

which can be used to solve for 

X 2 - 0.1 = 0 

x = ± ,/oT 


Therefore, the general solution is 
7= Ae Mx + Be 

The constants can be evaluated by substituting each of the boundary conditions to generate two 
equations with two unknowns, 

200= A + B 

100 = 23.62434 A + 0.0423297 

which can be solved for A = 3.881524 and B = 196.1 185. The final solution is, therefore, 

7= 3.881524e + 196.1 185e _VM * 

which can be used to generate the values below: 


X 

T 

0 

200 

1 

148.2747 

2 

111.5008 

3 

85.97028 

4 

69.10864 

5 

59.21565 

6 

55.29373 

7 

56.94741 

8 

64.34346 

9 

78.22764 

10 

100 


200 

; 






100 r 

: 







n 







0 




1 


i 



| 

1 | 

0 

2 

4 

6 

8 

10 


27.2 Reexpress the second-order equation as a pair of ODEs: 





dT 


dx 


dz 

dx 


o.ir 


The solution was then generated on the Excel spreadsheet using the Heun method (without 
iteration) with a step-size of 0.01. An initial condition of z = -55 was chosen for the first shot. 
The first few calculation results are shown below. 


X 

T 

z 

kll 

k12 

Tend 

zend 

k21 

k22 

phil 

phi2 

0 

200.000 

-55.000 

-55.000 

20.000 

194.500 

-53.000 

-53.000 

19.450 

-54.000 

19.725 

0.1 

194.600 

-53.028 

-53.028 

19.460 

189.297 

-51.082 

-51.082 

18.930 

-52.055 

19.195 

0.2 

189.395 

-51.108 

-51.108 

18.939 

184.284 

-49.214 

-49.214 

18.428 

-50.161 

18.684 

0.3 

184.378 

-49.240 

-49.240 

18.438 

179.454 

-47.396 

-47.396 

17.945 

-48.318 

18.192 

0.4 

179.547 

-47.420 

-47.420 

17.955 

174.805 

-45.625 

-45.625 

17.480 

-46.523 

17.718 

0.5 

174.894 

-45.649 

-45.649 

17.489 

170.330 

-43.900 

-43.900 

17.033 

-44.774 

17.261 


The resulting value at x = 10 was T(10) = 315.759. A second shot using an initial condition of z 
(0) = -70 was attempted with the result at x = 10 of r(10) = -243.249. These values can then be 
used to derive the correct initial condition, 

z(0) = -55 + 70 + 55 (100 - 3 15.759) = -60.79 

-243.249-315.759 



27.3 A centered finite difference can be substituted for the second derivative to give, 
- — 0.127 = 0 


T,_ x -2T i+ T l+l 


h 2 

or for h = 1 , 


~ T i-i +2.17; -i;. +1 = o 


The first node would be 


2.1 7) - T 2 =200 


and the last node would be 







The tridiagonal system can be solved with the Thomas algorithm or Gauss-Seidel for (the 
analytical solution is also included) 


X 

T 

Analytical 

0 

200 

200 

1 

148.4838 

148.2747 

2 

111.816 

111.5008 

3 

86.32978 

85.97028 

4 

69.47655 

69.10864 

5 

59.57097 

59.21565 

6 

55.62249 

55.29373 

7 

57.23625 

56.94741 

8 

64.57365 

64.34346 

9 

78.3684 

78.22764 

10 

100 

100 


27.4 The second-order ODE can be expressed as the following pair of first-order ODEs, 

z 

2 z + y — x 
8 

These can be solved for two guesses for the initial condition of z. For our cases we used 

z( 0) -1 -0.5 

y( 20) -6523.000507 7935.937904 


dy 

dx 

dz 

dx 


Clearly, the solution is quite sensitive to the initial conditions. These values can then be used to 
derive the correct initial condition, 


z(0) = -1 + (I5 ^ (8 + 6523.000507) = -0.774154 

7935.937904 + 6523.000507 

The resulting fit is displayed below: 



27.5 Centered finite differences can be substituted for the second and first derivatives to give, 




Vi +x i =0 


g y i+ i ~ 2 y t + y,--i 2 y M - y ,-~ i 

Ax 2 Ax 

or substituting Ax = 2 and collecting terms yields 
2-5 y M - 5 y i + 1.5y,._, + x t = 0 

This equation can be written for each node and solved with either the Gauss-Seidel method or a 
tridiagonal solver to give 


X 

T 

0 

5 

2 

4.287065 

4 

4.623551 

6 

5.600062 

8 

6.960955 

10 

8.536414 

12 

10.18645 

14 

11.72749 

16 

12.78088 

18 

12.39044 

20 

8 



27.6 The second-order ODE can be expressed as the following pair of first-order ODEs, 

d L- 

dx 

— = 1.2 x 10 7 (T + 273) 4 - 5(150 - T) 
dx 

The solution was then generated on the Excel spreadsheet using the Heun method (without 
iteration) with a step-size of 0.01. The Excel Solver was used to adjust the initial condition of z 
until the value of 71(0.5) = 100. Part of the resulting spreadsheet is shown below along with a 
graph of the final solution. 


X 

T 

Z 

ATI 

AT 2 

Tend 

zend 

ATI 

k22 

61 

62 

0 

200.000 

-927.673 

-927.673 

6256.560 

190.723 

-865.107 

-865.107 

5752.643 

-896.390 

6004.601 

0.01 

191.036 

-867.627 

-867.627 

5769.196 

182.360 

-809.935 

-809.935 

5321.210 

-838.781 

5545.203 





0.02 

182.648 

- 812.175 

- 812.175 

5335.738 

174.527 

- 758.817 

- 758.817 

4936.083 

- 785.496 

5135.910 

0.03 

174.793 

- 760.816 

- 760.816 

4948.905 

167.185 

- 711.327 

- 711.327 

4591.217 

- 736.071 

4770.061 

0.04 

167.433 

- 713.115 

- 713.115 

4602.594 

160.301 

- 667.089 

- 667.089 

4281.522 

- 690.102 

4442.058 

0.05 

160.532 

- 668.694 

- 668.694 

4291.667 

153.845 

- 625.778 

- 625.778 

4002.685 

- 647.236 

4147.176 



27.7 The second-order ODE can be linearized as in 

7 2 m 

-1.2xl0 7 (r 6 + 273) 4 - 4.8 x 10 7 (7J, + 273) 3 (T - 7J,) + 5(150 - T) = 0 

clx 2 

Substituting T h = 150 and collecting terms gives 
d 2 T 

— - - 4 1.32974 r + 2357.591 = 0 
dx 2 


Substituting a centered-difference approximation of the second derivative gives 
-T t _ x + (2 + 41.32974 Ax 2 )?; - T i+l = 2357.591Ax 2 

We used the Gauss-Seidel method to solve these equations. The results for a few selected points 
are: 

x 0 0.1 0.2 0.3 0.4 0.5 

T 200 134.2765 101.5758 87.91595 87.45616 100 

A graph of the entire solution along with the nonlinear result from Prob. 27.7 is shown below: 



27.8 For three springs 


2k 


l —u 2 


V »»1 


Mi 


/M| 


4 


Substituting m = 

( 12 - co 2 )^! 

— 6A { + 


k i 


m. 


+ 




V m i 


y 


*i 


I)!, 


m, 


+ 


f 2k, 2 "l 

— L -CD~ . 


V m \ 

40 kg and k = 240 gives 


— 6yf 2 


= 0 

K> 

1 

S 

to 

ib. 

to 

- 6A 3 

= 0 

(N 

VO 

1 

+ (12-co 2 )^ 3 

= 0 


0 

0 

0 


The determinant is 

-co 6 +36co 4 - 360co 2 +864 = 0 

which can be solved for to 2 = 20.4853, 12, and 3.5147 s“ 2 . Therefore the frequencies are to = 
4.526, 3.464, and 1.875 s“'. Substituting these values into the original equations yields for to 2 = 
20.4853, 

Ai = -0.707 A 2 = A 3 
for to 2 = 12 

A\ = -A 3 , and =Ai = 0 

for co 2 = 3.5147 
A 1 = 0.707A 2 = A 3 
Plots: 




27.9 For 5 interior points (/? = 3/6 = 0.5), the result is Eq. (27.19) with 2 - 0.25 p 1 on the diagonal. 
Dividing by 0.25 gives, 


8 -/ -4 

-4 8 -/ -4 

-4 8 -/ 

-4 


-4 

P 2 
-4 


-4 
8 -/ 


= 0 


The determinant can be expanded (e.g., with Fadeev-Leverrier or the MATLAB poly function) to 
give 

0 = -p l ° + 40/ -576/ + 3,584/ -8960/ +6,144 

The roots of this polynomial can be determined as (e.g., with Bairstow’s methods or the 
MATLAB roots function) p 2 = 1.072, 4, 8, 12, 14.94. The square root of these roots yields p = 
1.035, 2, 2.828, 3.464, and 3.864. 

27.10 Minors: 


(2-M 


3- A, 
4 


4 

7 - A, 



4 

7 — A, 


+ 10 


10 


3- A, 
4 


-V + m 2 + ioa+ is 


27.11 Although the following computation can be implemented on a pocket calculator, a spreadsheet 
or with a program, we’ve used MATLAB. 

» a= [2 2 10; 8 3 4;10 4 5] 
a - 

2 2 10 

8 3 4 

10 4 5 

» x= [1 1 1] ' 
x = 

1 

1 

1 

First iteration: 

>> x=a*x 
x = 

14 

15 
19 

>> e=max (x) 
e = 

19 

>> x=x/e 
x = 

0.7368 
0.7895 
1 . 0000 

Second iteration: 

>> x=a*x 


x 


13.0526 



12.2632 

15.5263 


>> e=max (x) 


e = 

15.5263 


>> x=x/e 
x = 

0.8407 
0.7898 

1 . 0000 

Third iteration: 


>> x=a*x 
x = 

13.2610 

13.0949 

16.5661 


>> e=max (x) 
e = 

16.5661 


>> x=x/e 
x = 

0.8005 
0.7905 

1 . 0000 

Fourth iteration: 


>> x=a*x 
x = 

13.1819 
12 .7753 
16.1668 


>> e=max (x) 


e = 

16.1668 


>> x=x/e 
x = 

0.8154 
0.7902 

1 . 0000 

Thus, after four iterations, the result is converging on a highest eigenvalue of 16.2741 with a 
corresponding eigenvector of [0.811 0.790 1], 


27.12 As in Example 27.10, the computation can be laid out as 



2 

2 

10 





[A] = 

8 

3 

4 






10 

4 

5 













First iteration: 





eigenvalue 

eigenvector 

-0.05556 

1.666667 

-1.22222 

1 


0.388889 


-0.3888889 

0 

-5 

4 

1 

= 

-1 

-1 

1 

0.111111 

0.666667 

-0.55556 

1 


0.222222 


-0.2222222 









Second iteration: 







-0.05556 

1.666667 

-1.22222 

-0.38889 


1.959877 


-0.3328092 

0 

-5 

4 

1 

= 

-5.88889 

-5.88889 

1 





0.111111 

0.666667 

-0.55556 

-0.22222 


0.746914 


-0.1268344 









Third iteration: 







-0.05556 

1.666667 

-1.22222 

-0.33281 


1.840176 


-0.3341317 

0 

-5 

4 

1 

= 

-5.50734 

-5.50734 

1 

0.111111 

0.666667 

-0.55556 

-0.12683 


0.700151 


-0.1271307 









Fourth iteration: 







-0.05556 

1.666667 

-1.22222 

-0.33413 


1.840611 


-0.3341389 

0 

-5 

4 

1 

= 

-5.50852 

-5.50852 

1 

0.111111 

0.666667 

-0.55556 

-0.12713 


0.700169 


-0.1271065 


Thus, after four iterations, the estimate of the lowest eigenvalue is l/( — 5.5085) = -0.1815 with 
an eigenvector of [-0.3341 1 -0.1271], 

27. 13 Here is VBA Code to implement the shooting method: 

Public hp As Single, Ta As Single 
Option Explicit 
Sub Shoot ( ) 

Dim n As Integer, m As Integer, i As Integer, j As Integer 
Dim xO As Single, xf As Single 

Dim x As Single, y ( 2 ) As Single, h As Single, dx As Single, xend As Single 

Dim xp(200) As Single, yp(2, 200) As Single, xout As Single 

Dim zOl As Single, z02 As Single, T01 As Single, T02 As Single 

Dim TO As Single, Tf As Single 

Dim Tf 1 As Single, Tf2 As Single 

'set parameters 
n = 2 
hp = 0.01 

Ta = 20 
xO = 0 
TO = 40 
xf = 10 
Tf = 200 
dx = 2 
xend = xf 
xout = 2 
' first shot 
x = xO 
y ( 1 ) = TO 
y (2) = 10 

Call RKsystems(x, y, n, dx, xf, xout, xp(), yp(), m) 
z 0 1 = yp ( 2 , 0 ) 

Tf 1 = yp(l, m) 

'second shot 
x = xO 
y ( 1 ) = TO 
y (2) = 20 

Call RKsystems(x, y, n, dx, xf, xout, xp(), yp(), m) 
z 0 2 = yp ( 2 , 0 ) 

Tf 2 = yp (1 , m) 

'last shot 
x = xO 
y ( 1 ) = TO 

'linear interpolation 

y (2) = zOl + (z02 - zOl) / (Tf2 - Tfl) * (Tf - Tfl) 

Call RKsystems(x, y, n, dx, xf, xout, xp(), yp(), m) 

'output results 

Range ("a4:C1004") . ClearContents 
Range ("A4") .Select 
For j = 0 To m 

ActiveCell . Value = xp(j) 



For i = 1 To n 

ActiveCell .Of fset (0, 1). Select 
ActiveCell .Value = yp(i, j) 

Next i 

ActiveCell .Of fset (1, -n). Select 
Next j 

Range ("A4") .Select 
End Sub 

Sub RKsystems (x, y, n, dx, xf , xout, xp. 

Dim i As Integer 

Dim xend As Single, h As Single 

m = 0 

For i = 1 To n 
YP ( i , m) = y (i) 

Next i 
Do 

xend = x + xout 

If xend > xf Then xend = xf 

h = dx 

Do 

If xend - x < h Then h = xend - x 
Call RK4 (x, y, n, h) 

If x >= xend Then Exit Do 
Loop 

m = m + 1 
xp (m) = x 
For i = 1 To n 
yp(i, m) = y (i) 

Next i 

If x >= xf Then Exit Do 
Loop 
End Sub 

Sub RK4 (x, y, n, h) 

Dim i 


Dim ynew, dydx (10), 

ym(10) 

, ye (10) 

Dim kl (10) , k2 (10) , 

k3 (10) 

, k4 ( 10 ) 

Dim slope ( 10 ) 

Call Derivs (x, y, kl) 
For i = 1 To n 

ym(i) = y (i) + kl (i) 

* h 

/ 2 

Next i 

Call Derivs (x + h / 

2, 

ym. 

k2) 

For i = 1 To n 

ym(i) = y(i) + k2 

(i) 

* h 

/ 2 

Next i 

Call Derivs (x + h / 

2, 

ym. 

k3 ) 

For i = 1 To n 

ye ( i ) = y (i) + k3 

(i) 

* h 


Next i 

Call Derivs (x + h. 

ye. 

k4 ) 


For i = 1 To n 

slope (i) = (kl (i) 

+ 

2 * 

(k2(i) + 

Next i 

For i = 1 To n 

y (i) = y (i) + slope ( 

i) * 

h 


Next i 
x = x + h 
End Sub 

Sub Derivs(x, y, dydx) 


yp, m) 


) + k4 (i) ) / 6 


dydx ( 1 ) = y (2) 

dydx (2 ) = hp * (y (1) - Ta) 

End Sub 
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4.244752 

41.06212 
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6 
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4.571954 

0.354484 
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7 
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5.552851 

0.604916 
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8 

8 

6.922503 

0.750695 










9 

10 

8.506933 

0.822492 




4 - 






10 

12 

10.16451 

0.820854 




2 






11 

14 

11.71116 

0.697035 




0 - 






12 
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0.288061 
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41.86756 




u 

5 

14 

20 

7.999797 

4.03548 











27.15 A general formulation that describes Example 27.3 as well as Probs. 27.3 and 27.5 is 

d 2 y . dy 

a — ^ + b— + cy+ f(x) = 0 

1 2 i y J v 7 

ax ax 

Finite difference approximations can be substituted for the derivatives: 


a v,,-2 y^ +b y^ + f() 

Ax z 2 Ax 


Collecting terms 

-(a-0.5Mx)j7 M + [2a + cAx 2 )y i —(a + 0.56Ax)_y m = /(x ; .)Ax 2 


The following VBA code implants this equation as applied to Example 27.3. 


Public hp As Single, dx As Single 

Option Explicit 

Sub FDBoundaryValue ( ) 

Dim ns As Integer, i As Integer 

Dim a As Single, b As Single, c As Single 

Dim e(100) As Single, f (100) As Single, g(100) As Single 

Dim r(100) As Single, y(100) As Single 

Dim Lx As Single, xx As Single, x(100) As Single 

Lx = 10 

dx = 2 

ns = Lx / dx 
xx = 0 
hp = 0.01 
a = 1 
b = 0 
c = hp 
y ( 0 ) = 40 
y(ns) = 200 
For i = 0 To ns 
x ( i ) = xx 
xx = xx + dx 
Next i 

f ( 1 ) = 2*a/dx A 2 + c 
g (1) = - (a / dx A 2 - b / (2 * dx) ) 

r ( 1 ) = ff (x(l) ) + (a / dx A 2 + b / (2 * dx) ) * y(0) 

For i = 2 To ns - 2 

e (i) = - (a / dx A 2 + b / (2 * dx) ) 
f(i)=2*a/dx A 2+c 
g(i)=-(a/dx A 2-b/ ( 2 * dx ) ) 
r (i) = ff (x(i) ) 

Next i 

e (ns - 1) = - (a / dx A 2 + b / (2 * dx) ) 

f (ns -1) = 2*a/dx A 2 + c 

r(ns - 1) = ff(x(ns - 1) ) + (a / dx A 2 - b / (2 * dx) ) * y(ns) 

Sheets ("Sheet2") .Select 

Range ( "a5 : dl05" ) . ClearContents 

Range ("a5") .Select 

For i = 1 To ns - 1 

ActiveCell . Value = e(i) 

ActiveCell .Of fset (0, 1). Select 
ActiveCell . Value = f(i) 

ActiveCell .Of fset (0, 1). Select 
ActiveCell . Value = g(i) 

ActiveCell .Of fset (0, 1). Select 
ActiveCell . Value = r(i) 

ActiveCell .Of fset (1, -3). Select 
Next i 

Range ("a5") .Select 

Call Tridiag(e, f, g, r, ns - 1, y) 

Sheets ("Sheetl") .Select 
Range ( "a5 :bl05" ) . ClearContents 
Range ("a5") .Select 
For i = 0 To ns 

ActiveCell . Value = x(i) 

ActiveCell .Of fset (0, 1). Select 
ActiveCell .Value = y(i) 

ActiveCell .Of fset (1, -1). Select 
Next i 

Range ("a5") .Select 
End Sub 

Sub Tridiag(e, f, g, r, n, x) 

Dim k As Integer 
For k = 2 To n 

e(k) = e(k) / f(k - 1) 
f (k) = f (k) - e (k) * g(k - 1) 

Next k 

For k = 2 To n 

r(k) = r(k) - e(k) * r(k - 1) 

Next k 

x (n) = r (n) / f (n) 



For k = n - 1 To 1 Step -1 

x(k) = (r(k) - g(k) * x(k + 1)) / f(k) 
Next k 
End Sub 

Function ff (x) 
ff = hp * 20 
End Function 
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27.17 

Option Explicit 
Sub Power () 

Dim n As Integer, i As Integer, iter As Integer 

Dim aa As Single, bb As Single 

Dim a(10, 10) As Single, c(10) As Single 

Dim lam As Single, lamold As Single, v(10) As Single 

Dim es As Single, ea As Single 


■ 1 
bb 


es = 

0 . 

001 

n = 

3 


aa = 

2 

/ 0.5625 

bb = 

-1 

/ 0.5625 

a (1, 

1) 

= aa 

a (1, 

2) 

= bb 

For 

i = 

2 To n - 

a ( 

i, 

i - i) = : 

a ( 

i, 

i) = aa 

a ( 

i. 

H- 

+ 

I— 1 

II 

Next 

i 


a (i. 

i 

,Q 

rQ 

II 

\ 1 

1 

a (i. 

i) 

= aa 

lam 

= 1 


For 

i = 

1 To n 

v ( 

i) 

= lam 

Next 

i 



Sheets ("sheetl") .Select 
Range ("a3:bl000") . ClearContents 
Range ("a3") .Select 
Do 

iter = iter + 1 

Call Mmult(a(), (v()), v(), n, n, 1) 
lam = Abs (v (1) ) 

For i = 2 To n 

If Abs(v(i)) > lam Then lam = Abs(v(i)) 
Next i 

ActiveCell . Value = "iteration: " 

ActiveCell .Of fset (0, 1). Select 
ActiveCell . Value = iter 
ActiveCell .Of fset (1, -1). Select 
ActiveCell . Value = "eigenvalue: " 
ActiveCell .Of fset (0, 1). Select 
ActiveCell . Value = lam 
ActiveCell .Of fset (1, -1). Select 
For i = 1 To n 

v (i) = v (i) / lam 
Next i 

ActiveCell . Value = "eigenvector:" 
ActiveCell .Of fset (0, 1). Select 
For i = 1 To n 

ActiveCell .Value = v(i) 

ActiveCell .Of fset (1, 0). Select 
Next i 

ActiveCell .Of fset (1, -1). Select 
ea = Abs ((lam - lamold) / lam) * 100 
lamold = lam 
If ea <= es Then Exit Do 
Loop 

End Sub 

Sub Mmult(a, b, c, m, n, 1) 

Dim i As Integer, j As Integer, k As Integer 
Dim sum As Single 

For i = 1 To n 
sum = 0 

For k = 1 To m 

sum = sum + a(i, k) * b(k) 

Next k 
c (i) = sum 
Next i 


End Sub 
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15 
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3 




16 

eigenvalue: 

7.111111 




17 

eigenvector: 
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57 
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10 




58 

eigenvalue: 

6.069717 




59 

eigenvector: 

0.707107 




60 


-1 




61 
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27.18 

Option Explicit 
Sub Power () 

Dim n As Integer, i As Integer, iter As Integer, j As Integer 

Dim aa As Single, bb As Single 

Dim a(10, 10) As Single, c(10) As Single 

Dim lam As Single, lamold As Single, v(10) As Single 

Dim es As Single, ea As Single 

Dim x(10) As Single, ai(10, 10) As Single 

es = 0.0000011 
n = 3 

aa = 2 / 0.5625 
bb = -1 / 0.5625 

a(l, 1) = aa 

a (1, 2) = bb 

For i = 2 To n - 1 


a (i, 

X 

II 

\ — 1 

1 

-H 

a (i, 

i) = aa 

a (i, 

i + 1) = bb 

Next i 


a (i, i 

- 1) = bb 


a(i, i) = aa 

Call LUDminv(a(), n, x()) 
lam = 1 

For i = 1 To n 
v ( i ) = 1 am 
Next i 



Sheets ("sheetl") .Select 
Range ("a3:jl000") . ClearContents 
Range ("a3") .Select 

ActiveCell . Value = "Matrix inverse:" 

ActiveCell .Offset (1, 0). Select 
For i = 1 To n 
For j = 1 To n 

ActiveCell .Value = a(i, j) 

ActiveCell .Of fset (0, 1). Select 
Next j 

ActiveCell .Of fset (1, -n). Select 
Next i 

ActiveCell .Offset (1, 0). Select 
Do 

iter = iter + 1 

Call Mmult(a(), (v()), v(), n, n, 1) 
lam = Abs (v (1) ) 

For i = 2 To n 

If Abs(v(i)) > lam Then lam = Abs(v(i)) 

Next i 

ActiveCell . Value = "iteration: " 

ActiveCell .Of fset (0, 1). Select 
ActiveCell . Value = iter 
ActiveCell .Of fset (1, -1). Select 
ActiveCell . Value = "eigenvalue: " 

ActiveCell .Of fset (0, 1). Select 
ActiveCell . Value = lam 
ActiveCell .Of fset (1, -1). Select 
For i = 1 To n 

v (i) = v (i) / lam 
Next i 

ActiveCell . Value = "eigenvector:" 

ActiveCell .Of fset (0, 1). Select 
For i = 1 To n 

ActiveCell .Value = v(i) 

ActiveCell .Of fset (1, 0). Select 
Next i 

ActiveCell .Of fset (1, -1). Select 
ea = Abs ((lam - lamold) / lam) * 100 
lamold = lam 

If ea <= es Then Exit Do 
Loop 

End Sub 

Sub Mmult(a, b, c, m, n, 1) 

Dim i As Integer, j As Integer, k As Integer 
Dim sum As Single 

For i = 1 To n 
sum = 0 

For k = 1 To m 

sum = sum + a(i, k) * b(k) 

Next k 
c (i) = sum 
Next i 

End Sub 

Sub LUDminv(a, n, x) 

Dim i As Integer, j As Integer, er As Integer 
Dim o(3) As Single, s (3) As Single, b(3) As Single 
Dim ai(10, 10) As Single, tol As Single 

tol = 0.00001 

Call Decompose (a, n, tol, o(), s(), er) 

If er = 0 Then 
For i = 1 To n 
For j = 1 To n 
If i = j Then 



1 


b(j) = 

Else 

b(j) = 0 
End If 
Next j 

Call Substitute (a, o, n, b, x) 

For j = 1 To n 
ai ( j , i) = x ( j ) 

Next j 
Next i 
End If 

For i = 1 To n 
For j = 1 To n 

a (i, j ) = ai (i, j ) 

Next j 
Next i 
End Sub 

Sub Decompose (a, n, tol, o, s, er) 

Dim i As Integer, j As Integer, k As Integer 
Dim factor As Single 
For i = 1 To n 
o (i) = i 

s (i) = Abs (a (i, 1) ) 

For j = 2 To n 

If Abs(a(i, j)) > s(i) Then s(i) = Abs(a(i, j)) 
Next j 
Next i 

For k = 1 To n - 1 

Call Pivot (a, o, s, n, k) 

If Abs(a(o(k), k) / s(o(k))) < tol Then 
er = -1 
Exit For 
End If 

For i = k + 1 To n 

factor = a(o(i), k) / a(o(k), k) 
a (o (i) , k) = factor 
For j = k + 1 To n 

a (o (i) , j) = a (o (i) , j) - factor * a(o(k), j) 
Next j 
Next i 
Next k 

If (Abs(a(o(k), k) / s(o(k))) < tol) Then er = -1 
End Sub 

Sub Pivot (a, o, s, n, k) 

Dim ii As Integer, p As Integer 
Dim big As Single, dummy As Single 
P = k 

big = Abs(a(o(k), k) / s(o(k))) 

For ii = k + 1 To n 

dummy = Abs(a(o(ii), k) / s (o (ii) ) ) 

If dummy > big Then 
big = dummy 
p = ii 
End If 
Next ii 
dummy = o (p) 
o (p) = o (k) 
o ( k) = dummy 
End Sub 

Sub Substitute (a, o, n, b, x) 

Dim k As Integer, i As Integer, j As Integer 
Dim sum As Single, factor As Single 
For k = 1 To n - 1 
For i = k + 1 To n 
factor = a (o (i) , k) 

b(o(i)) = b ( o ( i ) ) - factor * b(o(k)) 

Next i 
Next k 

x (n) = b (o (n) ) / a(o(n), n) 



For i = n - 1 To 1 Step -1 
sum = 0 

For j = i + 1 To n 

sum = sum + a(o(i), j) * x(j) 

Next j 

x (i) = (b(o(i)) - sum) / a(o(i), i) 
Next i 
End Sub 
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Matrix inverse: 



RUN 
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iteration: 

1.0000 





9 

eigenvalue: 

1.125 





10 

eigenvector: 

0.75 





11 


1 





12 


0.75 





13 







14 

iteration: 

2 





15 

eigenvalue: 

0.984375 





16 

eigenvector: 

0.714286 





17 


1 





18 


0.714286 












50 

iteration: 

8 





51 

eigenvalue: 

0.960248 





52 

eigenvector: 

0.707107 





53 


1 





54 


0.707107 






27.19 This problem can be solved by recognizing that the solution corresponds to driving the 
differential equation to zero. To do this, a finite difference approximation can be substituted for 
the second derivative to give 

T — 27 ’. + T 

R = M ' / ±f-1.2xl0“ 7 (7; +273) 4 +5(150- 7;) 

(Ax) 2 

where R = the residual, which is equal to zero when the equation is satisfied. Next, a 
spreadsheet can be set up as below. Guesses for T can be entered in cells B11:B14. Then, the 
residual equation can be written in cells C11:C14 and referenced to the temperatures in column 
B. The square of the TTs can then be entered in column D and summed (D17). The Solver can 
then be invoked to drive cell D17 to zero by varying B 1 1 :B 14. The result is as shown in the 
spreadsheet. A plot is also displayed below. 

























27.20 First, an m-file containing the system of ODEs can be created and saved (in this case as 
odesys.m), 

function dy = predprey (t, y) 

dy=[0.3*y(l)-1.5*y(l)*y(2) ; -0 . l*y (2) +0 . 036*y (1) *y (2) ] ; 

Then, the following MATLAB session is used to generate the solution: 

» [t, y] =ode4 5 ( ' odesys ' , [0 100], [1;. 05]); 

A plot of the solution along with the state-space plot are generated with 

>> plot (t, y) 

» plot (y ( : , 1) , y ( : , 2) ) 

These plots are displayed below 




27.21 First, the 2nd-order ODE can be reexpressed as the following system of lst-order ODE’s 


c/x 

dt 

— = -8.333333z - 1 166.667x 
dt 


Next, we create an m-fde to hold the ODEs: 


function dx=spring (t, y) 

dx= [y (2) ; - 8 .333333*y(2) -1166. 667*y(l) ] 


Then we enter the following commands into MATLAB 

[ t , y] =ode4 5 (' spring ' , [0 . 4 ] , [ 0 . 3 ; 0 ] ) 
plot (t, y ( : , 1) ) ; 


The following plot results: 


0.2 


o - \ l \ 

-0.2 - V./ 

- 0.4 

0 0.1 0.2 0.3 0.4 

(b) The eigenvalues and eigenvectors can be determined with the following commands: 

» a= [ 0 -1;8. 333333 1166.667]; 

>> format short e 
>> [v,d]=eig(a) 

v = 


-9 . 9997e-001 
7 . 1427e-003 


8 . 5715e-004 
-1 . 0000e+000 


d = 

7 . 1429e-003 0 

0 1 . 1667e+003 

27.22 This problem is solved in an identical fashion to that employed in Example 27.12. For part (a), 
the solution is as displayed in the following plot: 



(b) The solution for this set of equations is laid out in Sec. 28.2 (Fig. 28.9). 




27.23 


Boundary Value Problem 
1. x-spacing 

at x=0, i=l ; and at x=2, i=n 


Ax = 


2-0 
n - 1 


2. Finite Difference Equation 


2 

^- + 6 ^-« = 2 
dx 2 dx 


Substitute in finite difference approximations 


■*;+r 


i 


+ 6 


*/ + i 


-u, 


Ax 


2Ax 


• — U; 


[1 — 3(Ajc)]M f _ t + [-2- Ax 2 ]ui+ [1 +3Ax]« i+ j = 2Ax 2 

Coefficients 

a t = l-3(Ax) bj = - 2- Ax' c i = 1 + 3Ar d { = 2 Ax 

3. End point equations 

i=2 [1 - 3(Ax)]10 + [- 2 - Ax 2 ]« 2 + [1 + 3Ax]k 3 = 2Ax 

Coefficients 

a 2 = 0 b 2 = - 2- Ax c 2 = 1 + 3Ax d 2 = 2Ax 2 - 10(l-3(Ar)) 


i=n-l [1 -3 (Ax)]m b _ 2 + [-2 -Ax 2 ]«„_j + [1 +3Ax]l = 2Ax 2 
Coefficients 

««- 1 = l-3(A*) &„_i = - 2 -Ax 2 c n _ l = 0 d n _! = 2 Ax 2 -(1-3(Ax)) 


%Boundary Value Ercfolan 
% u[xx] +6u[x]-u=2 

% BC. u(x=0)=10 u(x=2)=l 

% i=spatial index, fran 1 to n 

% nuntoering far points is i=l to i=21 for 20 dx spaces 
% u(l)=10 and u(n)=l 


n=41; xspan=2.0; 

% Constants 
dx^xspan/ (n-1) ; 
dx2=dX*dx; 

% sizing matrices 
u=zeros (l,n) ; zeros (l,n) ; 
a=zeros (1, n) ; b=zeros (1 ,n) ; c=zeros (1 ,n) ; 
fca= zeros (l,n) ; ga^zeros (l,n) ; 


d=zeros(l,n) ; 



%Coefficients and Boundary Conditions 
X=0:dX:2; 

U(l)=10; U(n)=l; 

b(2)=-2-dx2; 
c(2)=l+3*dx; 
d(2) =2*dx2- (l-3*dx) *10; 
fear i=3:n-2, 
a(i)=l-3*dx; 
b(i)=-2-dx2; 
c(i)=l+3*dx; 
d(i)=2*dx2; 
and 

a(n-l)=l-3*dx; 
b(n-l)=-2-dx2; 
d(n-l)=2*dx2- (l+3*dx) ; 

%Soluticn ly Thomas Algorithm 
ba(2)=b(2); 
ga(2)=d(2)/b(2) ; 
for i=3:n-l, 

ba(i)=b(i)-a(i)*c(i-l)/ba(i-l); 
ga(i) = (d(i) -a(i) *ga(i-l) ) /ba(i) ; 
aid 

%back substitution stq? 
u(n-l)=ga(n-l) ; 
far i=n-2:-l;2, 

u(i)=ga(i)-c(i)*u(i+l)/ba(i); 

aid 


%Plot 
plot (x,u) 

title ('u[xx]+6u[x]-^u=2; u(x=0)=10, u(xs=2)=l') 

xlatoel('x -Independent Variable Range 0 to 2'); ylabel('u - D^endait Variable') 
grid 


u[xx]+6u[x]-u=2; u(x=0)=10, u(x=2)=1 




27.24 


1. Divide the radial coordinate into n finite points. 


A r = 


71-1 


2. The finite difference approximations for the general point i 

dr r^r,., 

dr 2 Ar 2 

dr = 

Jr 2Ar 

r = Ar(i - 1) 

3. Substituting in the finite difference approximations for the derivatives 

4+If+s = o 

Jr 2 rdr 


^ + 1 -27 f + Y, , / 1 , o 

712 + Ur(i- 1 )A 2Ar J + 5 "° 


77^,-277 + 77. 

Ar 2 

4. Collecting like terms results in the general finite difference equation at pint i 




5. End point equation at i = 1 


Substituting in the FD approximation gives 


f(r = °) = 0 


t 2 -t q 

2A r 


= 0 


where T 0 is a fictitious point, however we see that T 0 = T 2 for zero slope at r = 0. Writing out the general 
equation at point i = 1 gives: 


7-2<rn)] 7 2 +[ - 2)r > + [ 1+ 2(7rTj] 7 r- 4 * 


and noting the two undefined terms l/(2(i - 1 )) add out of the equation gives (see not at end) 

[-2]T 1 + [2]T 2 = -Ar 2 S 

6. End point equation at / = n - 1 

[ 1 -^KV [ - 2]7 ''-' = - A M 1 + 2<7M 

7. Solve the resulting tridiagonal system of algebraic equations using the Thomas Algorithm. 

8. Following program in MATLAB. 


Note: An alternate solution method is to move the first point i = 1 over half a Ar step. This avoids the unde- 
fined quantities at the point r = 0. 



%Soluticns of the COE Boundary Value Problem 
% T[rr]+(l/r)T[r]+S=0 

% BC. T(r=l)=l T[r] (r=0)=0 

% i=spatial index, fran 1 to n 

% numbering for points : i=l to i=21 fcsr 20 dr spaces 

% i=l (r=0) , and i=n (r=l) 

% T(n)=l and T* (0)=0 

%Ccnstants 

n=21; 

dr=l/ (n-1) ; 
dr2=dr*dr; 

S=l; 


%sizing matrices 
r=0:dr:l; 

T=zeros(l,n) ; 

a=zeros(l,n) ; b=zeros (l,n) ; c=zeros (l,n) ; d=zesros(l,n); 
ba=zeros (1 , n) ; ga=zeros (1 , n) ; 

Coefficients and Boundary Conditions 
b(l)=-2; 
c(l)=2; 
d(l)=-dr2*S 
for i=2:n-2, 

a(i) =1-1/ (2* (i— 1) ) ; 
b(i)=-2; 

c (i) =1+1/ (2* (i-1) ) ; 
d(i)=-dr2*S; 

aid 

a (n-1) =1-1/ (2* (n-2) ) ; 
b(n-l)=-2; 

d(n-l) =-dr2*S- (1+1/ (2* (n-2) ) ) ; 

T(n)=l; 

%Soluticn ty Thomas Algorithm 
ba(l)=b(l) ; 
ga(l)=d(l)/b(l) ; 
for i=2:n-l, 

ba(i)=b(i)-a(i)*c(i-l)/ba(i-l); 
ga(i)=(d(i)-a(i)*ga(i-l))/ba(i) ; 

erd 

%back substitution step 
T(n-l)=ga(n-l) ; 
for i=n-2:-l:l, 

T(i)=ga(i)-c(i)*T(i+l)/ba(i); 

aid 

%Plot 
plot (r,T) 

titleCT[rr] + (l/r)T[r]+S=0; T(l)=l, T[r](0)=0') 
xlabelCr - Radius'); y label ( 1 T - Tarperature 1 ) 
grid 
hold on 

gtext('S=20'); gtext ( 'S=10' ) ; gtext('S=l') 




r - Radius 


27.25 


By summing forces on each mass and equating that to the mass times acceleration, the resulting differential 
equations are 



In matrix form 



0 

0 

0 


The k/m matrix becomes with: k L = = 10 N/m, k 2 = k 3 = 40 N/m, and nq = m 2 = m 3 = 1 kg 


F. 


50 -40 0 

k 

m 


-40 80 -40 



. 0 -40 50 


Solve for the eigenvalues/natural frequencies using MATLAB. 



% 3 ness - 4 spring system 
'• natural frequaxdes 

kl=k4= 10 N/m k2=k3= 40 N/m 
% ml=iTi2=m3=in4 = 1 kg 

km=[50 -40 0; -40 80 -40; 0 -40 50] 
w2=eig(km) 

w=sqrt(w2) 
km = 

50 -40 0 

-40 80 -40 

0 -40 50 


W2 = 

6.4765 

50.0000 

123.5235 


w = 

2.5449 

7.0711 

11.1141 

27.26 

k=l; 

kmw2= [2*k, -k, -k; -k, 2*k, -k; -k, -k, 2*k] ; 
[ v, d] =eig ( kmw2 ) 


v = 

0.8034 0.1456 0.5774 
-0.2757 -0.7686 0.5774 
-0.5278 0.6230 0.5774 

d = 

3.0000 0 0 

0 3.0000 0 

0 0 0.0000 

Therefore, the eigenvalues are 0, 3, and 3. Setting these eigenvalues equal to m co 2 , the 
three frequencies can be obtained. 

/ucOj 2 = 0 => C0[ =0 (Hz) 1 st mode of oscillation 
/?? co 2 2 = 0 => co 2 = 73 (Hz) 2 nd mode 
7?7C0 3 2 = 0 => co 3 = 73 (Hz) 3 rd mode 



27.7 (a) The exact solution is 


y = Ae 5t +r + 0.4f + 0.08 

If the initial condition at t = 0 is 0.8, A = 0, 

y = t 2 + 0.4f + 0.08 

Note that even though the choice of the initial condition removes the positive exponential terms, 
it still lurks in the background. Very tiny round off errors in the numerical solutions bring it to 
the fore. Hence all of the following solutions eventually diverge from the analytical solution. 

(. b ) 4 th order RK. The plot shows the numerical solution (bold line) along with the exact solution 
(fine line). 



(c) 

function yp=dy(t,y) 
yp=5* (y-t A 2) ; 

» tspan= [0,5] ; 

» y 0=0. 08; 

» [t, y] =ode45 ( 'dyl ' , tspan, yO) ; 

(d) 

» [t, y] =ode23S ( ' dyl ' , tspan, yO) ; 

(e) 

» [t, y] =ode23TB ( 'dyl ' , tspan, yO) ; 



CHAPTER 29 


29.1 


First iteration: 
7.500000 
9.750000 
55.425000 

Error : 

100.000000 

100.000000 

100.000000 
Second iteration 
9.600000 
26.137500 
68.068500 

Error : 

21 . 875000 
62.697270 
18.574660 


Seventh iteration: 

25.013610 

28.806340 

33.932440 

46.216590 

56.257030 

56.921290 

78.575310 

93.082440 

87.501180 

Error : 

2 . 954020E-01 

2 . 531316E-02 

1 . 679560E-02 

2 . 267362E-02 

2 . 082395E-02 

1 . 041445E-02 

2 . 165254E-03 

3 . 590016E-03 

1 . 743838E-03 


29.2 The fluxes for Prob. 29.1 can be calculated as 


qx= 


-9 . 325527E-02 

-2 . 185114E-01 

-5 . 192447E-01 

-7 . 657 973E-01 

-2 . 622653E-01 

1 . 532972E-01 

-1.668020 

-2 . 186839E-01 

1.055520 

qy= 

-1 . 132306 

-1 . 378297 

-1.394572 

-1.312262 

-1.574765 

-1.312434 

-2 .542694 

-2.296703 

-2.280428 

qn= 

1 . 136140 

1.395511 

1 .488101 

1.519367 

1.596454 

1 . 321357 

3.040984 

2 . 307091 

2.512862 

theta= 

-94 .708180 

-99.008540 

-110 . 421900 

-120.266600 

-99.455400 

-83.337820 

-123.265100 

-95.439100 

-65.162450 


2.250000 

15.675000 

3.600000 

20.782500 

62.707500 

85.047000 

100.000000 

100.000000 

100.000000 

100.000000 

100.000000 

100.000000 

8.212501 

20.563500 

34.632000 

52.916250 

88.782750 

85.500310 

72 . 602740 

23.772710 

89.604990 

60.725670 

29.369720 

5 . 301830E-01 



29.3 The plate is redrawn below 


100 °c 


75 °c 


50 °c 


o°c 


After 1 5 iterations of the Liebmann method, the result is 


0 

100 

100 

100 

100 

100 

100 

100 

0 

50 

73.6954 

82.3973 

86.06219 

87.7991 

88.54443 

88.19118 

85.32617 

75 

50 

62.3814 

69.8296 

74.0507 

76.58772 

78.18341 

78.8869 

78.10995 

75 

50 

55.9987 

60.4898 

63.72554 

66.32058 

68.71677 

71.06672 

73.23512 

75 

50 

51.1222 

52.4078 

54.04625 

56.25934 

59.3027 

63.42793 

68.75568 

75 

50 

46.0804 

43.9764 

43.79945 

45.37425 

48.80563 

54.57569 

63.33804 

75 

50 

39.2206 

33.6217 

31.80514 

32.62971 

35.95756 

42.71618 

54.995 

75 

50 

27.1773 

19.4897 

17.16646 

17.3681 

19.66293 

25.31308 

38.86852 

75 

0 

0 

0 

0 

0 

0 

0 

0 

0 

with percent 

approximate errors 

of 





0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0.0030 

0.0040 

0.0043 

0.0049 

0.0070 

0.0114 

0.0120 

0 

0 

0.0050 

0.0062 

0.0057 

0.0055 

0.0079 

0.0120 

0.0109 

0 

0 

0.0062 

0.0067 

0.0036 

0.0007 

0.0007 

0.0097 

0.0241 

0 

0 

0.0076 

0.0066 

0.0020 

0.0106 

0.0067 

0.0164 

0.0542 

0 

0 

0.0106 

0.0079 

0.0033 

0.0074 

0.0077 

0.0400 

0.1005 

0 

0 

0.0149 

0.0099 

0.0119 

0.0327 

0.0630 

0.1192 

0.2343 

0 

0 

0.0136 

0.0013 

0.0302 

0.1259 

0.2194 

0.2925 

0.7119 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 


29.4 The solution is identical to Prob. 29.3, except that now the top edge must be modeled. 
This means that the nodes along the top edge are simulated with equations of the form 


AT — T — T 

H 1 i,j i-\,j i+Uj 


-2T 


i,j~ 1 


= 0 


The resulting simulation (after 14 iterations) yields 


50 

50.38683 

51.16385 

52.6796 

55.17802 

58.7692 

63.41846 

68.9398 

75 

50 

50.17211 

50.76425 

52.15054 

54.58934 

58.20129 

62.96008 

68.67918 

75 

50 

49.51849 

49.56564 

50.58556 

52.86931 

56.56024 

61.64839 

67.93951 

75 

50 

48.31607 

47.39348 

47.78093 

49.79691 

53.61405 

59.2695 

66.58047 

75 

50 

46.33449 

43.91569 

43.37764 

44.99165 

48.94264 

55.38806 

64.29121 

75 

50 

43.09381 

38.56608 

36.8614 

37.93565 

41.91332 

49.21507 

60.37012 

75 

50 

37.46764 

30.4051 

27.61994 

28.08718 

31.71478 

39.39338 

53.1291 

75 

50 

26.36368 

17.98153 

15.18654 

15.20479 

17.63115 

23.73251 

38.00928 

75 

0 

0 

0 

0 

0 

0 

0 

0 

0 


with percent approximate errors of 




0 

0.0584 

0.1318 

0.2034 

0.2606 

0.2828 

0.2493 

0.1529 

0 

0 

0.0722 

0.1603 

0.2473 

0.3173 

0.3424 

0.2983 

0.1862 

0 

0 

0.0854 

0.1883 

0.2937 

0.3788 

0.4077 

0.3438 

0.2096 

0 

0 

0.0933 

0.2121 

0.3441 

0.4464 

0.4754 

0.3972 

0.2247 

0 

0 

0.0930 

0.2300 

0.3913 

0.5097 

0.5328 

0.4468 

0.2605 

0 

0 

0.0873 

0.2469 

0.4299 

0.5474 

0.5611 

0.4237 

0.2747 

0 

0 

0.0913 

0.2827 

0.4995 

0.5852 

0.5525 

0.3157 

0.0477 

0 

0 

0.1131 

0.3612 

0.7054 

0.9164 

0.7958 

0.5085 

0.6345 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 


29.5 The solution is identical to Examples 29.1 and 29.3, except that now heat balances 
must be developed for the three interior nodes on the bottom edge. For example, using 
the control- volume approach, node 1 ,0 can be modeled as 

-0.49 (5) Tl ° ~ r °° + 0.49 (5) ^ ~ Tl ° + 0.49( 1 0) Tn ~ Tl ° - 2( 1 0) = 0 
10 10 10 

4r io - T oo -T 20 -2T u = -81.63265 


The resulting simulation yields (with a stopping criterion of 1% and a relaxation 
coefficient of 1.5) 


87.5 

100 

100 

100 

75 

75 

79.91669 

77.76103 

70.67812 

50 

75 

66.88654 

60.34068 

55.39378 

50 

75 

52.26597 

40.84576 

40.26148 

50 

75 

27.12079 

10.54741 

14.83802 

50 


The fluxes for the computed nodes can be computed as 


</v 


- 0.06765 

0.226345 

0.680145 

0.359153 

0.281573 

0.253347 

0.836779 

0.29411 

- 0.22428 

1.579088 

0.300928 

- 0.96659 





- 0.81128 

- 0.97165 

- 1.09285 

- 0.67744 

- 0.90442 

- 0.74521 

- 0.97426 

- 1.21994 

- 0.99362 

- 1.23211 

- 1.48462 

- 1.24575 


^11 


0.814095 

0.997668 

1.287216 

0.766759 

0.947241 

0.787095 

1.284283 

1.254887 

1.018614 

2.002904 

1.514811 

1.576764 


9 (radians) 


- 1.65398 

- 1.34193 

- 1.0141 

- 1.08331 

- 1.26898 

- 1.24309 

- 0.86117 

- 1.33422 

- 1.7928 














-0.662591 -1.37081 | -2.23067 1 


9 (degrees) 


-94.7663 

-76.8869 

-58.1036 

-62.0692 

-72.7072 

-71.2236 

-49.3412 

-76.4454 

-102.72 

-37.9638 

-78.5416 

-127.808 


29.6 The solution is identical to Example 29.5 and 29.3, except that now heat balances must 
be developed for the interior nodes at the lower left and the upper right edges. The 
balances for nodes 1,1 and 3,3 can be written as 

- AT n + 0.8453 r 21 + 0.84537 12 = - 1.1 5470 1( T 01 + T 10 ) 


- 4 T 33 + 0.8453r 32 + 0.8453 J 23 = -1.1 5470 1 (J 34 + T 43 ) 

Using the appropriate boundary conditions, simple Laplacians can be used for the 
remaining interior nodes. The resulting simulation yields 


75 

50 

50 

50 


100 

75 

63.97683 

55.90731 

50 

100 

86.02317 

75 

63.97683 

50 

100 

94.09269 

86.02317 

75 

50 


100 

100 

100 

75 


29.7 The nodes to be simulated are 


0,3 

1,3 

2,3 

3,3 

- 0,2 

1,2 

2,2 

3,2 

• c 

0’ 1 , 

) ( 

1,1 

1 c 

2,1 

) 

3,1 

M 

) C 

1,0 

2,0 

3,0 


Simple Laplacians are used for all interior nodes. Balances for the edges must take 
insulation into account. Fo example, node 1,0 is modeled as 

4^i,o ~ T 0fi — T 2 0 — 2T X , = 0 

The comer node, 0,0 would be modeled as 

at -JT -2T =0 
^o,o Zjl \,o z - 1 o,i v 


The resulting set of equations can be solved for 


0 

12.5 

25 

37.5 

50 

11.94853 

16.08456 

22.79412 

30.14706 

37.5 

15.625 

17.09559 

19.94485 

22.79412 

25 

16.36029 

16.72794 

17.09559 

16.08456 

12.5 

16.36029 

16.36029 

15.625 

11.94853 

0 

The fluxes can be computed as 



J , 

- 0.6125 

- 0.6125 

- 0.6125 

- 0.6125 

- 0.6125 

- 0.20267 

- 0.26572 

- 0.34453 

- 0.36029 

- 0.36029 

- 0.07206 

- 0.10584 

- 0.13961 

- 0.12385 

- 0.10809 

- 0.01801 

- 0.01801 

0.015763 

0.112592 

0.175643 

- 5 . 6E-13 

0.018015 

0.108088 

0.382812 

0.585478 

Jy 

0.585478 

0.175643 

- 0.10809 

- 0.36029 

- 0.6125 

0.382812 

0.112592 

- 0.12385 

- 0.36029 

- 0.6125 

0.108088 

0.015763 

- 0.13961 

- 0.34453 

- 0.6125 

0.018015 

- 0.01801 

- 0.10584 

- 0.26572 

- 0.6125 

0 

- 0.01801 

- 0.07206 

- 0.20267 

- 0.6125 

Jn 

0.847314 

0.637187 

0.621964 

0.710611 

0.866206 

0.43315 

0.288587 

0.366116 

0.509533 

0.710611 

0.129906 

0.107004 

0.197444 

0.366116 

0.621964 

0.025477 

0.025477 

0.107004 

0.288587 

0.637187 

5 . 63E-13 

0.025477 

0.129906 

0.43315 

0.847314 

6 (radians) 

2.378747 

2.862322 

- 2.96692 

- 2.60987 

- 2.35619 

2.057696 

2.740799 

- 2.7965 

- 2.35619 

- 2.10252 

2.158799 

2.993743 

- 2.35619 

- 1.91589 

- 1 .74547 

2.356194 

- 2.35619 

- 1 .42295 

- 1.17 

- 1.29153 

3.141593 

- 0.7854 

- 0.588 

- 0.4869 

- 0.80795 

6 (degrees) 

136.2922 

163.999 

- 169.992 

- 149.534 

-135 

117.8973 

157.0362 

- 160.228 

-135 

- 120.466 

123.6901 

171.5289 

-135 

- 109.772 

- 100.008 

135 

-135 

- 81.5289 

- 67.0362 

- 73.999 

180 

-45 

- 33.6901 

- 27.8973 

- 46.2922 



29.8 Node 0.3: 


There are two approaches for modeling this node. One would be to consider it a Dirichlet node 
and not model it at all (i.e., set it’s temperature at 50°C). The second alternative is to use a heat 
balance to model it as shown here 
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(0,2) 6 


0 = 0.5(15)(T) ri ’ 3 4Q r °’ 3 - 0.5(20)(1) r °’ 3 3o r °’ 2 + 0.0 1(20)(1)(10 - T 0 - 3 ) 


-029752 Tj 3 +4T 0j 3 -0.52893r o2 = 3.17355 
Node 2,3: 


0 = -0.5(15)0) T2 \J' 3 + 0.5(15)(1) - 0.5(30)(1) + 0.0 1(30)( 1)( 1 0 - 7^) 

4r 2 3 -0.70588 T 13 - 1.41 176 T 3 3 - 1.882357; 2 


Node 2,2: 



0 = -0.5(22.5)0)^= — ^ + 0.5(22.5)(1) ^ ^ 
40 20 


0.5(30)(1) 


T -T 

1 2,2 1 2,l 


15 

+ 0.5(30)(1) 


^ 2,3 ^ 2,2 

30 


+ 1 07t (7.5) 2 


4T 2 2 - 0.48 r i 2 - 0.967; 2 - 1.706677; a - 0.853337; 3 = 3015.93 


Node 5.3: 


( 4 , 3 ) 


Q- 


( 5 , 3 ) 


( 5 , 2) 6 


0 = -0.5(1 5)(1) ^ 4 ’ 3 ~ 0.5(10)(1) 7 ^ 3q 7 ^ + 0.01(1 0)(1)(10 - 7^) 

4 r 5 3 - 2.33766 r 43 - 1.03896 J 52 = 6.23377 
29.9 Node 0.0: 
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0 = 0.01(7.5)(2)(20 - r 0 , 0 ) - 0.7(7.5)(2) 7 ^ 4q 7 ^ + 0.7(20)(2) 

4r ao - 0.46069 7] 0 - 3.276057^ = 5.26508 
Node 1.1: 


p (1,2) 


o- 


( 1 , 1)1 


-o 


( 0 , 1 ) 


( 2 , 1 ) 
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( 1 , 0 ) 


T - T 
2,1 J 1,1 


T - T 

0 = -0.7(22.5)(2) u (U + 0.5(22.5)(2) 

40 20 


— - 0.7(20)(2) 


T - T 
m.i 1 \ 


1,0 


15 


T 1 1 71 f, 7i , 7i i 71 o Til 

- 0.5(1 0)(2)— — + 0.7(20)(2) — — + 0.5(10)(2) " — 

15 30 30 


47^-0.7875571, ! -1.77389 T x 0 - 0.88694 T l 2 -0.551 42 7), , =0 
Node 2,1: 


p ( 2 , 2 ) 


(1,1) a 


A 



( 2 , 0 ) 


-o 

( 3 , 1 ) 


0 = -0.5(22.5)(2) 1J + 0.5(22.5)(2) 3J 2,1 - 0.5(20)(2) ^°- 

20 20 15 

T — T 

- 0.5(20)(2) 2,2 2,1 + 10(22.5)(20) 

4 T 2 l - 1.05882 T’j j - 1.05882^ - 1.2549 T 20 - 0.62745 T 12 = 4235.29 
29.10 The control volume is drawn as in 



A flux balance around the node can be written as (note Ax = Ay = h ) 


— khAz 


T, , - T, 


Uj 


o J 


+ k(h / 2)Az 


T -T 
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0,7-1 


— k(h / 2)Az 


T, .. - T, 


1,7 


OJ 


= 0 


Collecting and cancelling terms gices 

Tqj ~ ^0,7-1 — ^o,7+i — = 0 


29. 1 1 A setup similar to Fig. 29. 1 1 , but with 0 > 45° can be drawn as in 



The normal derivative at node 3 can be approximated by the gradient between nodes 1 
and 7, 


dT _T X - r 7 
3r| 3 L l7 


When 0 is greater than 45° as shown, the distance from node 5 to 7 is Ay cot0, and 
linear interpolation can be used to estimate 


T 7 = T 5+ (T 6 


t 5 ) 


Ay cot 0 
Ax 


The length Ln is equal to Ay/sin0. This length, along with the approximation for 7? can 
be substituted into the gradient equation to give 


?1 = 


( 


rr Ay cot 0 

lsin0 , 

a t| 

3 Ax 


-71 1 - 


Ay cot 0 
Ax 


29.12 The following Fortran-90 program implements Liebmann’s method with relaxation. 

PROGRAM liebmann 
IMPLICIT NONE 
INTEGER :: nx,ny, l,i,j 

REAL :: T ( 0 : 5 , 0 : 5 ) , ea ( 0 : 5 , 0 : 5 ) , Told ( 0 : 5 , 0 : 5 ) 

REAL :: qy (0:5, 0:5), qx (0:5, 0:5), qn (0:5, 0:5), th (0:5, 0:5) 

REAL :: Trit , Tlef , Ttop, Tbot , lam, emax, es , pi 

REAL :: k,x,y,dx,dy 

nx=4 

ny=4 

pi=4 . *atan ( 1 . ) 

x=4 0 . 

y=4 0 . 

k=0 .49 

lam=l . 2 

es=l . 

dx=x/ nx 


dy=y/ny 
Tbot=0 . 

Tlef=25 . 

Trit=50 . 

Ttop=150 . 

DO i=l,nx-l 
T (i, 0) =Tbot 
END DO 
DO i=l,nx-l 
T (i, ny) =Ttop 
END DO 
DO j=l,ny-l 
T (0, j ) =Tlef 
END DO 
DO j=l,ny-l 
T (nx, j ) =Trit 
END DO 
1=0 
DO 

1 = 1 + 1 
emax=0 . 

DO j = l,ny-l 
DO i = l,nx-l 

Told (i, j ) =T (i, j ) 

T(i, j) = (T(i + l, j)+T(i-l, j)+T(i, j+l)+T(i, j-1) )/4 
T (i, j ) =lam*T (i,j)+(l-lam) *Told (i, j ) 
ea (i, j ) =abs ( (T (i, j ) -Told (i, j ) )/T(i,j) ) *100 . 
if (ea (i, j ) . GT . emax) emax=ea(i,j) 

END DO 
END DO 

PRINT *, 'iteration = ',1 
DO j = l,ny-l 

PRINT *, (T(i,j),i=l, nx-1 ) 

END DO 
PRINT * 

DO j = l,ny-l 

PRINT *, (ea (i, j ) , i=l, nx-1) 

END DO 

IF (emax.LE.es) EXIT 
END DO 

DO j = l,ny-l 
DO i = l,nx-l 

qy(i, j)=-k*(T(i, j+l)-T(i, j-1) ) /2/dy 
qx(i, j)=-k*(T(i+l, j)-T(i-l, j) )/2/dx 
qn (i, j ) =sqrt (qy (i, j ) **2+qx (i, j ) **2) 
th (i, j ) =atan2 (qy(i,j),qx(i,j))*180. /pi 
END DO 
END DO 

PRINT *, ' qx= ' 

DO j = l,ny-l 

PRINT *, (qx ( i , j ) , i=l , nx-1 ) 

END DO 

PRINT *, ' qy= ' 

DO j = l,ny-l 

PRINT *, (qy ( i , j ) , i=l , nx-1 ) 

END DO 

PRINT *, ' qn= ' 

DO j = l,ny-l 

PRINT *, (qn (i, j ) , i=l, nx-1) 

END DO 

PRINT *, ' theta= ' 

DO j = l,ny-l 

PRINT *, ( til (i, j ) , i=l , nx-1 ) 

END DO 
END 



When the program is run, 

the result of the last iteration is: 

iteration = 

6 


42.81303 

33.26489 

33.93646 

63.17175 

56.26600 

52 .46138 

78.57594 

76.12081 

69.64268 

0.5462000 

0 .1074174 

2 . 4864437E-02 

1 . 1274090E-02 

2 . 0983342E-02 

4 . 8064217E-02 

3 . 17 6974 9E-02 

3 . 6572997E-02 

2 . 4659829E-02 

qx= 

1 . 022510 

0.2174759 

-0 . 4100102 

0 . 4589829 

0.2624041 

0 . 1535171 

-2 . 7459882E-02 

0.2188648 

0 . 6399599 

qy= 

-1 .547708 

-1.378517 

-1.285304 

-0.8761914 

-1 . 049970 

-0 .8748025 

-0 . 9022922 

-1 . 071483 

-1.164696 

qn= 

1 . 854974 

1.395566 

1 . 349116 

0 . 9891292 

1 . 082263 

0.8881705 

0 . 9027100 

1 .093608 

1 . 328934 

theta= 

-56.54881 

-81.03486 

-107 . 6926 

-62.35271 

-75.96829 

-80 . 04664 

-91 .74317 

-78.45538 

-61.21275 

Press any key to 

continue 



29.13 When the program is run, the result of the last iteration is: 

iteration = 

7 


25.01361 

28.80634 

33.93244 

46.21659 

56.25703 

56.92129 

78.57531 

93 .08244 

87 . 50118 

0.2954020 

2 . 5313158E- 

■02 1 . 6795604E-02 

2 . 2 67 3 62 0E- 

02 2 . 0823948E- 

■02 1 . 0414450E-02 

2 . 1652540E- 

03 3 . 5900162E- 

■03 1 . 7438381E-03 

qx= 

- 9 . 32552 67E- 

02 -0.2185114 

-0 . 5192447 

-0.7657973 

-0.2622653 

0 . 1532972 

-1.668020 

-0.2186839 

1.055520 

qy= 



-1.132306 

-1.378297 

-1 .394572 

-1.312262 

-1 . 574765 

-1 .312434 

-2 . 542694 

-2.296703 

-2.280428 

qn= 



1 . 136140 

1.395511 

1 .488101 

1.519367 

1 .596454 

1 . 321357 

3.040984 

2.307091 

2.512862 

theta= 



-94 .70818 

-99.00854 

-110.4219 

-120.2666 

-99.45540 

-83.33782 

-123.2651 

-95.43910 

-65.16245 

Press any key 

to continue 


29.14 When the program is run, the result of the last iteration is: 

iteration = 

19 


38.490 24.764 

19.044 16.783 

16.696 19.176 27.028 

54.430 41.832 

34.955 31.682 

31 . 041 33 . 110 38.976 

62.710 53.570 

47.660 44.291 

42 . 924 43.388 45.799 

68.165 62.478 

58.219 55.234 

53.215 51.848 50.854 

72.761 70.301 

67.841 65.489 

63.051 60.034 55.780 



77.795 78.373 77.594 76.027 73.595 69 . 52262.233 

85.175 87.944 88.261 87.530 85.843 82 . 24973.624 

This data can be imported into Excel and the following contour plot created: 
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CHAPTER 30 


30.1 The key to approaching this problem is to recast the PDE as a system of ODEs. Thus, by 
substituting the finite-difference approximation for the spatial derivative, we arrive at 
the following general equation for each node 

^ _ k Tj-i ~ 271 + T i+i 
dt Ax 2 

By writing this equation for each node, the solution reduces to solving 4 simultaneous 
ODEs with Heun’s method. The results for the first two steps along with some later 
selected values are tabulated below. In addition, a plot similar to Fig. 30.4, is also shown 


t 

O 

II 

X 

CM 

II 

X 

II 

X 

x = 6 

CO 

II 

X 

O 

T— 

II 

X 

0 

100 

0 

0 

0 

0 

50 

0.1 

100 

2.04392 

0.02179 

0.01089 

1.02196 

50 

0.2 

100 

4.00518 

0.08402 

0.04267 

2.00259 

50 


3 

100 

37.54054 

10.2745 

6.442321 

18.95732 

50 

6 

100 

53.24295 

24.66054 

17.46032 

27.92252 

50 

9 

100 

62.39033 

36.64937 

27.84901 

34.34692 

50 

12 

100 

68.71329 

46.03496 

36.5421 

39.53549 

50 



30.2 Because we now have derivative boundary conditions, the boundary nodes must be 
simulated. For node 0, 

T‘ +l =T‘ + X(T^ -2T‘ + T\) (0 


This introduces an exterior node into the solution at i = — 1. The derivative boundary 
condition can be used to eliminate this node, 


dT _T l - 71, 
dx 0 2Ax 


which can be solved for 
dT () 

71, =T l -2Ax—^- 


which can be substituted into Eq. (i) to give 


( 


,/+ 1 


= n 


277 -2 77 - 2Ax - 


dT, 


i \ 


dx 


V J 

For our case, dTJdx = 1 and Ax = 2, and therefore T. x = T\ + 4. This can be substituted 
into Eq. (?) to give, 

r 0 /+1 = Tq + 1(2 T( - 2Tq + 4) 

A similar analysis can be used to embed the zero derivative in the equation for the fifth 
node. The result is 


r 5 /+1 = T* + l(2Tl-2T^) 

Together with the equations for the interior nodes, the entire system can be iterated with 
a step of 0.1 s. The results for some of the early steps along with some later selected 
values are tabulated below. In addition, a plot of the later results is also shown 


t 

X 

II 

O 

CM 

II 

X 

II 

X 

x= 6 

00 

II 

X 

X 

II 

—V 

o 

0 

50.0000 

50.0000 

50.0000 

50.0000 

50.0000 

50.0000 

0.1 

49.9165 

50.0000 

50.0000 

50.0000 

50.0000 

49.9165 

0.2 

49.8365 

49.9983 

50.0000 

50.0000 

49.9983 

49.8365 

0.3 

49.7597 

49.9949 

50.0000 

50.0000 

49.9949 

49.7597 

0.4 

49.6861 

49.9901 

49.9999 

49.9999 

49.9901 

49.6861 

0.5 

49.6153 

49.9840 

49.9997 

49.9997 

49.9840 

49.6153 


200 

30.00022 

31.80019 

33.20009 

34.19992 

34.79981 

34.99978 

400 

13.30043 

15.10041 

16.50035 

17.50028 

18.10024 

18.30023 

600 

- 3.40115 

- 1.60115 

- 0.20115 

0.798846 

1 .398847 

1.598847 

800 

- 20.1055 

- 18.3055 

- 16.9055 

- 15.9055 

- 15.3055 

- 15.1055 

1000 

- 36.8103 

- 35.0103 

- 33.6103 

- 32.6103 

- 32.0103 

- 31.8103 
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200 

400 
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800 

1000 


Notice what’s happening. The rod never reaches a steady state, because of the heat loss 
at the left end (unit gradient) and the insulated condition (zero gradient) at the right. 

30.3 The solution for At = 0. 1 is (as computed in Example 30. 1), 




t 

o 

ii 

X 

x = 2 

x = 4 

x — 6 

x = 8 

x= 10 

0 

100 

0 

0 

0 

0 

50 

0.1 

100 

2.0875 

0 

0 

1.04375 

50 

0.2 

100 

4.087847 

0.043577 

0.021788 

2.043923 

50 

For At = 

0.05, it is 






t 

o 

n 

X 

x = 2 

x = 4 

x= 6 

x = 8 

x= 10 

0 

100 

0 

0 

0 

0 

50 

0.05 

100 

1.04375 

0 

0 

0.521875 

50 

0.1 

100 

2.065712 

1.09E-02 

5.45E-03 

1.032856 

50 

0.15 

100 

3.066454 

3.23E-02 

0.016228 

1.533227 

50 

0.2 

100 

4.046528 

6.38E-02 

3.22E-02 

2.023265 

50 


To assess the differences between the results, we performed the simulation a third time 
using a more accurate approach (the Heun method) with a much smaller step size {At = 
0.001). It was assumed that this more refined approach would yield a prediction close to 
true solution. These values could then be used to assess the relative errors of the two 
Euler solutions. The results are summarized as 



o 

n 

X 

CM 

II 

X 

M- 

II 

X 

x = 6 

x = 8 

x = 10 

Heun (h = 0.001) 

100 

4.006588 

0.083044 

0.042377 

2.003302 

50 

Euler (h = 0.1) 

100 

4.087847 

0.043577 

0.021788 

2.043923 

50 

Error relative to Heun 


2.0% 

47.5% 

48.6% 

2.0% 


Euler (h = 0.05) 

100 

4.046528 

0.063786 

0.032229 

2.023265 

50 

Error relative to Heun 


1.0% 

23.2% 

23.9% 

1.0% 



Notice, that as would be expected for Euler’s method, halving the step size 
approximately halves the global relative error. 

30.4 The approach described in Example 30.2 must be modified to account for the zero 
derivative at the right hand node (i = 5). To do this, Eq. (30.8) is first written for that 
node as 

-xtI +1 + (i + 2 X)r 5 /+1 - ui +1 = ij (0 

The value outside the system (i = 6) can be eliminated by writing the finite difference 
relationship for the derivative at node 5 as 

dT_ _ T 6 - T 4 
dx 5 2Ax 

which can be solved for 

dT 

T 6 = T 4 - 2Ax — 
dx 5 


For our case, dT/dx = 0, so T<, = I * and Eq. (/) becomes 



-2A ,r 4 /+1 + (i+ 2^)r 5 /+1 - r 5 z 

Thus, the simultaneous equations to be solved at the first step are 


1.04175 

-0.020875 





T l 


'2.0875' 

0.020875 

1.04175 

-0.020875 




t\ 


0 


-0.020875 

1.04175 

-0.020875 


5 

T l 

1 3 

> — < 

0 



-0.020875 

1.04175 

-0.020875 


Tl 


0 




-0.04175 

1.04175 


Tl 


0 


which can be solved for 

2.004645 ' 

0.040186 
■ 0.000806 ■ 

1.62 x 10“ 5 
6.47 xlO -7 

For the second step, the right-hand side is modified to reflect these computed values of 
Tat t = 0.1, 


1.04175 -0.020875 


V 


4.092145 ' 

-0.020875 1.04175 -0.020875 


Tl 


0.040186 

-0.020875 1.04175 -0.020875 

5 

T l 

1 3 

> = < 

0.000806 

-0.020875 1.04175 -0.020875 


I 


1.62 x 10 -5 

-0.04175 1.04175 


T l 


6.47 xlO -7 


which can be solved for 

3.930497 
0.117399 
• 0.003127 > 

7.83 xl0“ 5 
3.76 x 10 -6 

30.5 The solution is identical to Example 30.3, but with 6 segments. Thus, the simultaneous 
equations to be solved at the first step are 


' 2.06012 -0.03006 


tI 


6.012' 

-0.020875 2.06012 -0.03006 


Tl 


0 

-0.03006 2.06012 -0.03006 

5 

T l 

1 3 

> = < 

0 

-0.03006 2.06012 -0.03006 


Tl 


0 

-0.03006 2.06012 


T l 


3.006 


which can be solved for 



'2.91890 
0.04260 
• 0.00093 • 

0.02131 

1.45945 

For the second step, the right-hand side is modified to reflect these computed values of 
Fat t = 0.1, 


' 2.06012 -0.03006 


r/ 


1 1.67559 

-0.020875 2.06012 -0.03006 


t 


0.17042 

-0.03006 2.06012 -0.03006 

• 

n 

* = < 

0.00373 

-0.03006 2.06012 -0.03006 


Tl 


0.08524 

-0.03006 2.06012 


n 


5.83780 


which can be solved for 

5.66986' 

0.16553 
• 0.00543 • 

0.08282 

2.83493 

The solution at t = 10 for this problem (n = 6) along with the results determined for n = 
5, as in Example 30.3, are displayed in the following plot: 



30.6 Using the approach followed in Example 30.5, Eq. (30.20) is applied to nodes (1,1), 
(1,2), and (1,3) to yield the following tridiagonal equations 
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-0.0835 
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6.2625 ' 

-0.0835 

2.167 

-0.0835 

T li 

* = * 

6.2625 


-0.0835 

2.167 

T K3 


18.7875 


which can be solved for 


r u =3.018843 T x2 =3.345301 r i3 =8.798722 


In a similar fashion, tridiagonal equations can be developed and solved for 

T 2l = 0.130591 T 22 = 0.370262 T 23 = 6.133184 

and 


r 3 , = 1.1017962 T 32 = 1.287655 T 33 = 7.029137 

For the second step to t = 10, Eq. (30.22) is applied to nodes (1,1), (2,1), and (3,1) to 
yield 
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-0.0835 ■ 

" T 12 
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0.27029 


-0.0835 

2.167 



4.060943 


which can be solved for 

T u =5.5883 T l2 = 0.412884 T l3 = 1.889903 

Tridiagonal equations for the other rows can be developed and solved for 

T 2l = 6.308761 T 22 = 0.902193 T 23 = 2.430939 

and 


T Xi = 16.8241 T 32 = 12.1614 T 33 = 1325121 


Thus, the result at the end of the first step can be summarized as 
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The computation 

can be repeated, and the results for t 

= 2000 s are below: 
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30.7 Although this problem can be modeled with the finite-difference approach (see Sec. 
32.1), the control-volume method provides a more straightforward way to handle the 
boundary conditions. 


The boundary fluxes and the reaction term can be used to develop the discrete form of 
the advection-diffusion equation for the interior volumes as 



Ax* 


del 

dt 


-D 


J _J 

c i c i - 1 

Ax 


+ D 


CM 


~ C: 


Ax 


+ U 


c +c, 


: -i 


-U 


cL 1 
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or dividing both sides by Ax, 

del _ D c/+i - 2c, ; + cj_ i v c‘ + ! + c/_ t ^ 

dt Ax 2 2Ax 


which is precisely the form that would have resulted by substituting centered finite 
difference approximations into the advection-diffusion equation. 

For the first boundary node, no diffusion is allowed up the entrance pipe and advection 
is handled with a backward difference, 


Ax 


dc[ 

dt 


= D 


cl 


Ax 


-+ Uc' 0 -U 


- kAxc! 


or dividing both sides by Ax, 


dc[ _ j^ c l c \ 2cq cl c[ 
dt Ax 2 2 Ax 


- kc 


i 

i 


For the last boundary node, no diffusion is allowed through the exit pipe and advection 
out of the tank is again handled with a backward difference, 


Ax' 


dc‘ n 

dt 


= —D 


J _J 

n 1 

Ax 
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or dividing both sides by Ax, 


del 
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By writing these equations for each equally-spaced volume, the PDE is transformed into 
a system of ODEs. Explicit methods like Euler’s method or other higher-order RK 
methods can then be used to solve the system. 

The results with and initial condition that the reactor has zero concentration with an 
inflow concentration of 100 (using Euler with a step size of 0.005) for t = 100 are 

x 0.5 1.5 2.5 3.5 4.5 5.5 6.5 7.5 8.5 9.5 

c 14.2042 12.6506 11.2610 10.0385 8.9847 8.1025 7.3928 6.8583 6.5000 6.3201 


The results are also plotted below: 
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30.8 

Option Explicit 
Sub EulerPDE ( ) 

Dim i As Integer, j As Integer, np As Integer, ns As Integer 
Dim Te(20) As Single, dTe(20) As Single, tpr(20) As Single, 
As Single 

Dim k As Single, dx As Single, L As Single, tc As Single, tf 
Dim tp As Single, t As Single, tend As Single, h As Single 

L = 10 

ns = 5 

dx = 2 

k = 0.835 

Te (0) = 100 

Te (5) = 50 

tc = 0.1 

tf = 1 

tp = 0.1 

np = 0 

tpr (np) = t 

For i = 0 To ns 

Tepr (i, np) = Te (i) 

Next i 
Do 

tend = t + tp 

If tend > tf Then tend = tf 
h = tc 
Do 

If t + h > tend Then h = tend - t 
Call Derivs(Te, dTe, ns, dx, k) 

For j = 1 To ns - 1 

Te(j) = Te(j) + dTe(j) * h 
Next j 
t = t + h 

If t >= tend Then Exit Do 
Loop 

np = np + 1 
tpr(np) = t 
For j = 0 To ns 

Tepr ( j , np) = Te ( j ) 

Next j 

If t >= tf Then Exit Do 
Loop 

Sheets ("sheetl") .Select 
Range ("a4") .Select 
For i = 0 To np 

ActiveCell .Value = tpr(i) 

For j = 0 To ns 

ActiveCell .Offset (0, 1). Select 
ActiveCell .Value = Tepr(j, i) 

Next j 


Tepr (20 , 20) 
As Single 


1 ) . Select 


ActiveCell . Of f set ( 1 , -ns - 
Next i 

End Sub 

Sub Derivs (Te, dTe, ns, dx, k) 

Dim j As Integer 
For j = 1 To ns - 1 

dTe(j) = k * (Te ( j - 1) - 2 * Te(j) + Te(j + 1) ) / dx A 2 
Next j 
End Sub 

30.9 This program is set up to either use Dirichlet or gradient boundary conditions depending 
on the values of the parameters istrt and iend. 

Option Explicit 
Sub EulerPDE ( ) 

Dim i As Integer, j As Integer, np As Integer, ns As Integer 
Dim istrt As Integer, iend As Integer 


Dim 

Te(20) As Single, 

dTe (20) 

As 

Single, 

tpr 

(200) 

As Single, Tepr (20, 

200) 

As Single 









Dim 

k As Single, 

dx 

As 

Single, 

L As 

Single, 

tc 

As Single, tf As Single 

Dim 

tp As Single, 

t 

As 

Single, 

tend 

As Single, 

h As 

Single 


Dim dTedx(20) As Single 

L = 10 
ns = 5 
dx = 2 
k = 0.835 
dTedx(O) = 1 
istrt = 0 
dTedx(ns) = 0 
iend = ns 
Te (0) = 50 
Te (1) = 50 
Te (2) = 50 
Te (3) = 50 
Te ( 4 ) = 50 
Te (5) = 50 
tc = 0.1 
tf = 1000 
tp = 200 
np = 0 
tpr(np) = t 
For i = 0 To ns 

Tepr (i, np) = Te (i) 

Next i 

Do 

tend = t + tp 

If tend > tf Then tend = tf 
h = tc 
Do 

If t + h > tend Then h = tend - t 

Call Derivs (Te(), dTe(), istrt, iend, ns, dx, k, dTedx ( ) ) 
For j = istrt To iend 

Te(j) = Te(j) + dTe(j) * h 
Next j 

t = t + h 

If t >= tend Then Exit Do 
Loop 

np = np + 1 
tpr(np) = t 
For j = 0 To ns 

Tepr ( j , np) = Te (j ) 

Next j 

If t >= tf Then Exit Do 
Loop 



Sheets ("sheetl") .Select 
Range ("a4") .Select 
For i = 0 To np 

ActiveCell .Value = tpr(i) 

For j = 0 To ns 

ActiveCell .Offset (0, 1). Select 
ActiveCell .Value = Tepr(j, i) 

Next j 

ActiveCell .Offset (1, -ns - 1). Select 
Next i 

End Sub 

Sub Derivs (Te, dTe, istrt, iend, ns, dx, k, dTedx) 

Dim j As Integer 
If istrt = 0 Then 

dTe (0) = k * (2 * Te ( 1 ) - 2 * Te(0) - 2 * dx * dTedx (0)) / dx A 2 
End If 

For j = 1 To ns - 1 

dTe(j) = k * (Te ( j - 1) - 2 * Te(j) + Te(j + 1)) / dx A 2 
Next j 

If iend = ns Then 

dTe (ns) = k * (2 * Te (ns - 1) - 2 * Te(ns) + 2 * dx * dTedx (ns)) / dx 
A 2 

End If 
End Sub 


30.10 

Option Explicit 
Sub Simplmplicit ( ) 

Dim np, ns, i, j, n 

Dim Te(10), dTe(10), tpr(100), Tepr(10, 100), Tei As Single 
Dim k, dx, L, tc, tf, tp, t, tend, h, lambda 
Dim e (10) , f (10) , g(10), r(10), x(10), xrod 

L = 10# 
ns = 5 
dx = L / ns 
k = 0.835 
Te (0) = 100# 

Te (ns) = 50# 

Tei = 0 

For i = 1 To ns - 1 
Te (i) = Tei 
Next i 
t = 0 
np = 0 
tpr(np) = t 
For i = 0 To ns 

Tepr (i, np) = Te (i) 

Next i 
tc = 0.1 
tp = 0.1 
tf = 1 

Do 

tend = t + tp 

If tend > tf Then tend = tf 
h = tc 
Do 

If t + h > tend Then h = tend - t 
lambda = k * h / dx A 2 
f ( 1 ) = 1 + 2 * lambda 
g(l) = -lambda 

r(l) = Te(l) + lambda * Te(0) 

For j = 2 To ns - 2 
e(j) = -lambda 



f(j) = 1 + 2 * lambda 
g(j) = -lambda 
r ( j ) = Te ( j ) 

Next j 

e(ns - 1) = -lambda 

f (ns - 1) = 1 + 2 * lambda 

r (ns - 1) = Te (ns - 1) + lambda * Te(ns) 

Call Tridiag (e ( ) , f(), g(), r(), Te(), ns - 1) 
t = t + h 

If t >= tend Then Exit Do 
Loop 

np = np + 1 
tpr(np) = t 
For j = 0 To ns 

Tepr ( j , np) = Te ( j ) 

Next j 

If t >= tf Then Exit Do 
Loop 

Range ("b5") .Select 

xrod = 0 

For j = 0 To ns 

ActiveCell . Value = xrod 
ActiveCell .Offset (0, 1). Select 
xrod = xrod t dx 
Next j 

Range ("a6") .Select 
For i = 0 To np 

ActiveCell . Value = "t = " & tpr(i) 

For j = 0 To ns 

ActiveCell .Offset (0, 1). Select 
ActiveCell .Value = Tepr(j, i) 

Next j 

ActiveCell .Offset (1, -ns - 1). Select 
Next i 

Range ("a6") .Select 
End Sub 


Sub Tridiag(e, f, g, r, x, n) 

Call Decomp (e, f, g, n) 

Call Substit(e, f, g, r, n, x) 

End Sub 

Sub Decomp (e, f, g, n) 

Dim k As Integer 
For k = 2 To n 

e (k) = e (k) / f(k - 1) 
f ( k) = f (k) - e (k) * g ( k - 1) 

Next k 
End Sub 

Sub Substit(e, f, g, r, n, x) 

Dim k As Integer 
For k = 2 To n 

r ( k) = r (k) -e(k) * r (k - 1) 

Next k 

x (n) = r (n) / f (n) 

For k = n - 1 To 1 Step -1 

x ( k ) = (r (k) - g(k) * x(k + 1)) / f(k) 
Next k 
End Sub 

30.11 


Option Explicit 



Sub CrankNicO 


Dim np, ns, i, j, n 

Dim Te(10), dTe(10), tpr(lOO), Tepr(10, 100), Tei As Single 
Dim k, dx, L, tc, tf, tp, t, tend, h, lambda 
Dim e (10) , f(10), g(10), r(10), x(10), xrod 

L = 10# 
ns = 5 
dx = L / ns 
k = 0.835 
Te (0) = 100# 

Te (5) = 50# 

Tei = 0 
t = 0 
np = 0 
tpr(np) = t 
For i = 0 To ns 
Tepr ( i , np) = Tei 
Next i 
tc = 0.1 
tf = 10# 
tp = 1# 

Do 

tend = t + tp 

If tend > tf Then tend = tf 
h = tc 
Do 

If t + h > tend Then h = tend - t 
lambda = k * h / dx A 2 
f (1 ) = 2 * (1 + lambda) 
g(l) = -lambda 

r ( 1 ) = lambda * Te(0) + 2 * (1 - lambda) * Te(l) + lambda * Te(2) 
r(l) = r(l) + lambda * Te(0) 

For j = 2 To ns - 2 
e(j) = -lambda 
f(j) = 2 * (1 + lambda) 
g(j) = -lambda 

r(j) = lambda * Te(j - 1) + 2 * (1 - lambda) * Te(j) + lambda * Te 
(j + 1) 

Next j 

e(ns - 1) = -lambda 
f (ns - 1 ) =2* (1+ lambda) 

r (ns - 1) = lambda * Te (ns - 2) + 2 * (1 - lambda) * Te(ns - 1) + 

lambda * Te(ns) 

r (ns - 1) = r (ns - 1) + lambda * Te(ns) 

Call Tridiag (e ( ) , f(), g(), r(), Te(), ns - 1) 
t = t + h 

If t >= tend Then Exit Do 
Loop 

np = np + 1 
tpr(np) = t 
For j = 0 To ns 

Tepr ( j , np) = Te ( j ) 

Next j 

If t >= tf Then Exit Do 
Loop 

Range ("b5") .Select 

xrod = 0 

For j = 0 To ns 

ActiveCell . Value = xrod 
ActiveCell .Offset (0, 1). Select 
xrod = xrod + dx 
Next j 

Range ("a6") .Select 
For i = 0 To np 

ActiveCell . Value = "t = " & tpr(i) 

For j = 0 To ns 

ActiveCell .Offset (0, 1). Select 



ActiveCell .Value = Tepr(j, i) 

Next j 

ActiveCell .Offset (1, -ns - 1). Select 
Next i 

Range ("a6") .Select 
End Sub 

Sub Tridiag(e, f, g, r, x, n) 

Call Decomp (e, f, g, n) 

Call Substit(e, f, g, r, n, x) 

End Sub 

Sub Decomp (e, f, g, n) 

Dim k As Integer 
For k = 2 To n 

e (k) = e (k) / f(k - 1) 
f (k) = f (k) - e (k) * g ( k - 1) 

Next k 
End Sub 

Sub Substit(e, f, g, r, n, x) 

Dim k As Integer 
For k = 2 To n 

r ( k) = r ( k) -e(k) *r(k-l) 

Next k 

x (n) = r (n) / f (n) 

For k = n - 1 To 1 Step -1 

x ( k ) = (r (k) - g ( k) * x(k t 1)) / f(k) 

Next k 
End Sub 

30.12 Here is VBA code to solve this problem. The Excel output is also attached showing 
values for the first two steps along with selected snapshots of the solution as it evolves 
in time. 


Option Explicit 
Sub ADI () 

Dim np As Integer, i As Integer, j As Integer 
Dim nx As Integer, ny As Integer 
Dim Lx As Single, dx As Single 
Dim Ly As Single, dy As Single 

Dim Te(10, 10) As Single, dTe(10, 10) As Single 

Dim tpr(100) As Single, Tepr(10, 10, 100) As Single, Tei As Single 
Dim k As Single 

Dim dt As Single, ti As Single, tf As Single, tp As Single 
Dim t As Single, tend As Single, h As Single 
Dim lamx As Single, lamy As Single 

Dim e(10) As Single, f ( 1 0 ) As Single, g ( 1 0 ) As Single, r(10) As Single, Ted(10) As 
Single 

'set computation parameters 
Lx = 40 
nx = 4 

dx = Lx / nx 
Ly = 40 
ny = 4 

dy = Ly / ny 
k = 0.835 
dt = 10 
tf = 500 
ti = 0 
tp = 10 
Tei = 0 

'set top boundary 
For i = 1 To nx - 1 
Te (i, ny) = 100 
Next i 

'set bottom boundary 
For i = 1 To nx - 1 
Te (i, 0) = 0 



Next i 

'set left boundary 
For j = 1 To ny - 1 
Te (0, j ) = 75 
Next j 

'set right boundary 
For j = 1 To ny - 1 
Te (nx, j) =50 
Next j 

'set corners for plot 

Te (0, 0) = (dy * Te(l, 0) + dx * Te(0, 1)) / (dy + dx) 

Te (nx, 0) = (dy * Te (nx - 1, 0) + dx * Te (nx, 1)) / (dy + dx) 

Te(0, ny) = (dy * Te(l, ny) + dx * Te(0, ny - 1) ) / (dy + dx) 

Te (nx, ny) = (dy * Te (nx - 1, ny) + dx * Te (nx, ny - 1) ) / (dy + dx) 

'set interior 
For i = 1 To nx - 1 
For j = 1 To ny - 1 
Te(i, j) = Tei 
Next j 
Next i 

'save initial values for output 
np = 0 
t = ti 
tpr(np) = t 
For i = 0 To nx 
For j = 0 To ny 

Tepr(i, j, np) = Te(i, j) 

Next j 
Next i 
Do 

tend = t t tp 

If tend > tf Then tend = tf 
h = dt 
Do 

If t + h > tend Then h = tend - t 
' Sweep y 

lamx =k*h/dx A 2 
lamy = k * h / dy A 2 
For i = 1 To nx - 1 
f ( 1 ) = 2 * ( 1 + lamy) 

g(l) = -lamy 

r ( 1 ) = lamx * Te(i - 1, 1) + 2 * (1 - lamx) * Te(i, 1) + lamx * Te(i + 1, 1) 

+ lamy * Te(i, 0) 

For j = 2 To ny - 2 
e ( j ) = -lamy 
f ( j ) = 2 * (1 + lamy) 
g ( j ) = -lamy 

r ( j ) = lamx * Te(i - 1, j) + 2 * (1 - lamx) * Te(i, j) + lamx * Te(i + 1, j) 

Next j 

e (ny - 1) = -lamy 

f (ny - 1) = 2 * (1 + lamy) 

r (ny - 1) = lamx * Te (i - 1, ny - 1) + 2 * (1 - lamx) * Te(i, ny - 1) 

+ lamx * Te(i + 1, ny - 1) + lamy * Te(i, nx) 

Call Tridiag (e ( ) , f(), g(), r(), Ted(), nx - 1) 

For j = 1 To ny - 1 
Ted, j) = Ted ( j ) 

Next j 
Next i 

t = t + h / 2 
' Sweep x 

For j = 1 To ny - 1 
f ( 1 ) = 2 * (1 + lamx) 

g ( 1 ) = -lamx 

r ( 1 ) = lamy * Te(l, j — 1 ) + 2 * (1- lamy) * Te(l, j) + lamy * Te(l, j + 1) _ 

+ lamx * Te(0, j) 

For i = 2 To nx - 2 
e (i) = -lamx 
f (i) = 2 * (1 + lamx) 

g(i) = -lamx 

r(i) = lamy * Te(i, j - 1) + 2 * (1 - lamy) * Te(i, j) + lamy * Te(i, j + 1) 
Next i 

e (nx - 1 ) = -lamx 

f (nx - 1) = 2 * (1 + lamx) 

r (nx - 1) = lamy * Te (nx - 1, j - 1) + 2 * (1 - lamy) * Te (nx - 1, j) 

+ lamy * Te (nx - 1, j + 1) + lamx * Te (ny, j) 

Call Tridiag (e ( ) , f(), g(), r(), Ted(), nx - 1) 

For i = 1 To nx - 1 
Te (i, j) = Tedd) 

Next i 
Next j 

t = t + h / 2 

If t >= tend Then Exit Do 



Loop 

' save values for output 
np = np + 1 
tpr(np) = t 
For i = 0 To nx 
For j = 0 To ny 

Tepr(i, j, np) = Te(i, j) 

Next j 
Next i 

If t >= tf Then Exit Do 
Loop 

'output results back to sheet 
Range ("a5") .Select 
Range ("a5 :e2005") . ClearContents 
For k = 0 To np 

ActiveCell .Value = "t = " & tpr(k) 
ActiveCell .Offset (1, 0). Select 
For j = ny To 0 Step -1 
For i = 0 To nx 

ActiveCell .Value = Tepr(i, j, k) 
ActiveCell .Offset (0, 1). Select 
Next i 

ActiveCell . Of f set ( 1 , -nx - 1). Select 
Next j 

ActiveCell .Offset (1, 0). Select 
Next k 

Range ("a5") .Select 
End Sub 

Sub Tridiag(e, f, g, r, x, n) 

Call Decomp (e, f, g, n) 

Call Substitfe, f, g, r, n, x) 

End Sub 

Sub Decomp (e, f, g, n) 

Dim k As Integer 
For k = 2 To n 

e (k) = e (k) / f (k - 1) 
f (k) = f (k) - e (k) * g(k - 1) 

Next k 
End Sub 

Sub Substitfe, f, g, r, n, x) 

Dim k As Integer 
For k = 2 To n 

r (k) = r (k) - e (k) * r (k - 1) 

Next k 

x (n) = r (n) / f (n) 

For k = n - 1 To 1 Step -1 

x ( k ) = (r (k) - g(k) * x(k t 1)) / f(k) 
Next k 
End Sub 
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30.13 MATLAB solution: 

%PDE Parabolic Problem - Heat conduction in a rod 
% u[xx]=u[t] 

% BC u (0, t) =0 u (1, t) =1 

% IC u (x, 0 ) =0 x< 1 




% i=spatial index, from 1 to imax 

% imax = no. of x points 

% n=time index from 1 to nmax 

% nmax = no . of time steps, 

% Crank-Nicolson Formulation 
imax=61 ; 

nmax=60; % last time step = nmax+1 

% Constants 

dx=l/ ( imax-1 ) ; 
dx2=dx*dx; 

dt=dx2; % Setting dt to dx2 for good stability and results 

% Independent space variable 
x=0 : dx : 1 ; 

% Sizing matrices 

u=zeros (imax, nmax+1 ) ; t=zeros ( 1 , nmax+1 ) ; 
a=zeros ( 1 , imax) ; b=zeros ( 1 , imax) ; 

c=zeros ( 1 , imax) ; d=zeros ( 1 , imax) ; 
ba=zeros ( 1 , imax) ; ga=zeros ( 1 , imax) ; 
up=zeros ( 1 , imax) ; 

% Boundary Conditions 

u ( 1 , 1 ) =0 ; 
u ( imax, 1 ) =1 ; 

% Time step loop 

% n=l represents 0 time, n+1 = next time step 

t ( 1 ) =0 ; 
for n=l : nmax 

t (n+1) =t (n) +dt; 

% Boundary conditions & Constants 
u (1 , n+1 ) =0 ; 
u ( imax, n+1 ) =1 ; 
dx2dt=dx2/dt; 

% coefficients 

b (2 ) =-2-2*dx2dt; 
c (2 ) =1 ; 

d (2 ) = (2-2*dx2dt ) *u(2,n)-u(3,n) ; 
for i=3:imax-2 
a (i) =1; 

b (i) =-2-2*dx2dt; 
c (i) =1; 

d (i) =-u ( i— 1 , n) + (2-2*dx2dt) *u (i, n) -u (i+1 , n) ; 
end 

a ( imax-1 ) =1 ; 
b (imax-1) =-2-2*dx2dt; 

d ( imax-1 ) =-u ( imax- 2 , n)+(2-2*dx2dt) *u( imax-1 , n) -2 ; 
% Solution by Thomas Algorithm 

ba (2) =b (2) ; 
ga (2) =d (2 ) /b (2) ; 
for i=3 : imax-1 

ba(i)=b(i)-a(i)*c(i-l) /ba ( i — 1 ) ; 
ga (i) = (d (i) -a (i) *ga (i-1) ) /ba (i) ; 

end 


% Back substitution step 
u ( imax-1 , n+1 ) =ga ( imax-1 ) ; 
for i=imax-2 : -1 : 2 

u (i, n+1) =ga (i) -c (i) *u (i+1 , n+1 ) /ba (i) ; 

end 

dt=l . l*dt; 
end 

% end of time step loop 


% Plot 

% Storing plot value of u as up, at every 5 time steps, np=5 
%j=time index 


%i=space index 


np=5; 

for j=np:np:nmax 
for i=l : imax 
up ( i ) =u ( i , j ) ; 
end 

plot (x, up) 
hold on 
end 
grid 

title (' u [xx] =u [t] ; u(0,t)=0, u(l,t)=l, u(x,0)=0; Crank-Nicolson 

Formulation ' ) 

xlabel('x - ND Space') 

ylabel('u - ND Temperature') 

hold off 

% Storing times for temp, profiles 

%These can be saved in a data file or examined in the command file 

tp=zeros (1, (nmax-1) /np) ; 

i=l; 

tp ( 1 ) =0 ; 

for k=np:np:nmax 

i=i+l; 

tp (i) =t (k) ; 

end 

tp 


gtext ( ' n=60 ' ) ; gtext ( ' n=50 ' ) ; gtext ( ' n=40 ' ) ; gtext 
( ' n=30 ' ) ; gtext ( ' n=20 ' ) ; gtext ( ' n=10 ' ) ; gtext ( ' n=l ' ) ; 
gtext ( ' t= . 7 66 ' ) ; 

gtext ( ' t= . 1115 ' ) ; gtext ( ' t= . 0413 ' ) ; gtext ( ' t= . 014 ' ) ; 
gtext ( ' t= . 0038 ' ) ; gtext ( ' t=0 ' ) 



0 0.1 0.2 0.3 0.4 0.5 0.6 0.7 0.8 0.9 1 

x - ND Space 


tp = 


Columns 1 through 7 

0 0.0013 0.0038 0.0078 0.0142 0.0246 0.0413 


Columns 8 through 13 


0.0682 0.1115 0.1813 0.2937 0.4746 0.7661 


.14 


d“u 1 du _ du 

dr 2 r dr dt 

Substituting of second order correct Crank-Nicolson analogues 

d 2 U 1 | M ,+l,n+l ~ u i , n + 1 +u i-\,n+\ u M,n ~ u i,n +u i-l,n 


dr 2 2 

du _ 1 
dr 2 
r = (i — l)Ar 
dll tl i,n+l ^ i,n 

dt At 


+ 


A r‘ 


A r 


u i+l,n+\ u i-\,n+\ u i+\,n u i-\,n 
+ 

2 A r 2 A r 


into the governing equation give the following finite difference equations: 


1- 


1 


2(/-l) 


M 7-1,72+1 + 


- 2 - 2 - 


, Ar z 
At 


u i,n+l + 


1 + 


1 


2(i-l) 


i+l,n+l 


-i + 


i 


2(i-l) 


*7-1,72 


2-2 


Ar 

At 


u ■ + 

i ,n 


-1 + 


1 


2(i-l) 


u- 


i+\,n 


For the end points: 

x = 1 (i = R), substitute the value of « R = 1 into the above FD equation 
x = 0 (i = 1 ), set the FD analog to the first derivative = 0 


du 

1 

M 2,n+1 U 0,n+\ 

dr 

w"2 

2 A r 


+ 


U 2,n u 0,n 

2A r 


= 0 


Also substitute in i = 1 into the finite difference equation and algebraically eliminate 
M o,«+i + 11 o.ii from the two equations and get the FD equation at i = 1 : 


- 2 - 2 - 


, Ar 
At 


*1,72+1 


+ [2] M 2,7!+1 _ 


2 - 2 - 


Ar 

At 


l \ ,n + [-2]77 2 


%PDE Parabolic Problem - Heat conduction in the radial direction in a 
circular rod 

% u [rr] + (1/r) u [r] =u [t] 0<r<l 

% BC u(l,t)=l u[r] (0,t)=0 

% IC u (r, 0) =0 0<r<l 

% i=spatial index, from 1 to imax 

% imax = no . of r points (imax=21 for 20 dr spaces) 

% n=time index from 1 to nmax 

% nmax = no . of time steps, 

% Crank-Nicolson Formulation 

imax=41; 

nmax=60; % last time step = nmax+1 



Constants 


dr=l/ ( imax-1 ) ; 
dr2=dr*dr ; 

dt=dr2; % Setting dt to dr2 for good stability and results 

% Independent space variable 
r=0 : dr : 1 ; 

% Sizing matrices 

u=zeros ( imax, nmax+1 ) ; t=zeros ( 1 , nmax+1 ) ; 
a=zeros (1, imax) ; b=zeros (1, imax) ; 
c=zeros (1, imax) ; d=zeros (1, imax) ; 
ba=zeros ( 1 , imax) ; ga=zeros ( 1 , imax) ; 
up=zeros ( 1 , imax) ; 

% Boundary Conditions 

u ( imax, 1 ) =1 ; 

% Time step loop 

% n=l represents 0 time, new time = n+1 
t ( 1 ) =0 ; 
for n=l : nmax 

t (n+1) =t (n) +dt; 

% Boundary conditions & Constants 
u ( imax, n+1 ) =1 ; 
dr2dt=dr2/dt; 

% coefficients 

b (1) =-2-2*dr2dt; 

c ( 1 ) =2 ; 

d(l)=(2-2*dr2dt)*u(l,n)-2*u(2,n) ; 
for i=2 : imax-2 

a (i) =1-1/ (2* (i-1) ) ; 
b (i) =-2-2*dr2dt; 
c (i) =1 + 1/ (2* (i-1) ) ; 
d (i) = (-1+1/ (2* (i-1) ) ) *u(i-l,n)+(2- 
2*dr2dt) *u (i,n) + (-1-1/ (2* (i-1) ) ) *u (i+1, n) ; 
end 

a ( imax-1 ) =1-1/ (2* ( imax-2 ) ) ; 
b (imax-1) =-2-2*dr2dt; 

d ( imax-1 ) =(-1+1/ (2* (imax-2 ) ) ) *u ( imax-2 , n) + 
(2-2*dr2dt) *u (imax-1, n) -2 *(1+1/ (2* (imax-2) ) ) 

% Solution by Thomas Algorithm 

ba ( 1 ) =b ( 1 ) ; 
ga (1) =d (1) /b (1) ; 
for i=2: imax-1 

ba (i) =b (i) -a (i) *c (i-1) /ba (i-1) ; 
ga (i) = (d(i) -a (i) *ga (i-1) ) /ba (i) ; 

end 


% Back substitution step 

u ( imax-1 , n+1 ) =ga ( imax-1 ) ; 
for i=imax-2 : -1 : 1 

u (i, n+1) =ga (i) -c (i) *u (i+1, n+1) /ba (i) ; 

end 

dt=l . l*dt; 

end 

% end of time step loop 


% Plot 

% Storing plot value of u as up, at every 5 time steps 
%j=time index 
%i=space index 

istart=4 ; 

for j=istart : istart : nmax+1 
for i=l : imax 

up ( i ) =u ( i , j ) ; 

end 

plot (r, up) 



hold on 

end 

grid 

title (' u [rr] + (1/r) u [r] =u [t] ; u(l,t)=l u[r](0,t)=0; u(r,0)=0') 
xlabel ( ' r - ND Space ' ) 
ylabel('u - ND Temperature') 
hold off 

% Storing times for temp, profiles 

% These can be saved in a data file or examined in the command file 

tp=zeros (1, (nmax-1) /istart) ; 
i=l; 

tp (1) =0; 

for k=istart : istart : nmax+1 
i=i+l; 
tp (i)=t (k) ; 

end 

tp 



0 0.1 0.2 0.3 0.4 0.5 0.6 0.7 0.8 0.9 1 


r - ND Space 

tp = 


Columns 1 through 7 


0 

0.0021 

0.0059 

0.0116 

0.0199 

0.0320 

0.0497 

Columns 8 

through 14 






0.0757 

0 .1137 

0.1694 

0.2509 

0.3703 

0.5450 

0.8008 


Columns 15 through 16 
1.1754 1.7238 


30.15 




du 

d7 


Substituting of second order correct Crank-Nicolson analogues 


d~u 1 


dx 2 2 

du _ 1 
dx 2 


u i+\,n+\ u i,n+\ u i-\,n+\ ll i+\,n u i,n u i-\,n 

, ! + ! ’ — 


Ax 


l i+\,n+\ u i-\,n+\ u i+\,n u i-\,n 


Ax ' 


2Ax 

dll _ U i,n+\ ~ U i,n 

dt At 


+ - 


2 Ax 


into the governing equation give the following finite difference equations 


1,1 


At 2 


1 


1 " 

1 bAx 

2 \ 

u i-\,n+l + 

2 2 

At 

U i,n+ 1 + 

1 H — bAx 

2 J 

M ;'+l,n+l 

— 1 4 — bAx 
2 


Ax 2 


1 , " 

2-2 

M ( -„ + 

— 1 — bAx 

Ar 


2 


%PDE Parabolic Problem with a dispersion term 
% u [xx] +bu [x]=u [t] 

% BC u (0, t) =0 u (1, t) =1 

% IC u (x, 0 ) =0 x<l 

% i=spatial index, from 1 to imax 

% imax = no . of spatial points (imax=21 for 20 dx spaces) 

% n=time index, from 1 to nmax 

% nmax = no . of time steps 

% Crank-Nicholson formulation for the spatial derivatives 

imax=61 ; 

nmax=60; % last time step = nmax+1 

% constants 

dx=l/ ( imax-1 ) ; 
dx2=dx*dx; 
dt=dx2 ; 

% Parameters 
B=-4; 

% Independent spatial variable 
x=0 : dx : 1 ; 


% Sizing matrices 

u=zeros (imax, nmax) ; t=zeros (1, nmax) ; 
a=zeros (1, imax) ; b=zeros (1, imax) ; 
c=zeros (1, imax) ; d=zeros (1, imax) ; 
ba=zeros ( 1 , imax) ; ga=zeros ( 1 , imax) ; 
up=zeros ( 1 , imax) ; 

% Boundary Conditions 
u ( 1 , 1 ) =0 ; 
u ( imax, 1 ) = 1 ; 


% Time step loop 

% n=l represents 0 time, new time = n+1 
t (1) =0; 
f or n=l : nmax 



t (n+1 ) =t (n) +dt; 


% Boundary conditions & constants 
u ( 1 , n+1 ) =0 ; 
u ( imax, n+1 ) =1 ; 
dx2dt=dx2/dt; 

% Coefficients 

b (2) =-2-2*dx2dt; 
c (2) =1+0 . 5*B*dx; 

d(2) = (-1-0 . 5*B*dx) *u (3,n) + (2-2*dx2dt) *u(2,n) ; 
for i=3 : imax-2 

a (i) =1-0 . 5*B*dx; 
b (i) =-2-2*dx2dt; 
c (i) =1+0 . 5*B*dx; 

d (i) = (-1-0 . 5*B*dx) *u (i+l,n) + (2-2*dx2dt) *u (i,n) + (-1+0 . 5*B*dx) *u 

(i-1 f n) ; 

end 

a ( imax-1 ) =l-0.5*B*dx; 
b ( imax-1 ) =-2-2*dx2dt ; 

d ( imax-1 ) =2* (-l-0.5*B*dx)+(2-2*dx2dt) *u ( imax-1 , n)+(-l+0.5*B*dx) *u ( imax- 
2,n) ; 

% Solution by Thomas Algorithm 
ba ( 2 ) =b ( 2 ) ; 
ga(2)=d(2)/b(2) ; 
for i=3: imax-1 

ba(i)=b(i)-a(i)*c(i-l) /ba (i-1) ; 
ga (i) = (d (i) -a (i) *ga (i-1) ) /ba (i) ; 

end 

% Back substitution step 

u ( imax-1 , n+1 ) =ga ( imax-1 ) ; 
for i=imax-2 : -1 : 2 

u (i, n+1) =ga (i)-c(i)*u(i + l,n+l) /ba (i) ; 

end 

dt=l . l*dt; 
end 

% End of time step loop 


%Plot 

%Storing plot value of u as up, at ever 5 time steps 
% j=time index 

% i=speace index 

for j=5:5:nmax 
for i=l : imax 

up ( i ) =u ( i , j ) ; 

end 

plot (x, up) 
hold on 

end 

grid 

title (' u [xx] +bu [x] =u [t] ; u(0,t)=0 u(l,t)=l; u(x,0)=0 x<l ' ) 

xlabel('x - ND Space') 

ylabel('u - ND Temperature') 

hold off 

gtext ( 'b=-4 ' ) 

% Storing times for temp, profiles 

% These can be used in a data file or examined in the command file 
tp=zeros (1, (nmax-1) /5) ; 
i=l; 

tp (1) =0; 

for k=5:5:nmax 

i=i+l; 
tp (i) =t (k) ; 

end 

tp 


tp = 



- ND Temperature u - ND Temperature 


Columns 1 through 7 


0 0.0013 0.0038 0.0078 0.0142 0.0246 

Columns 8 through 13 

0.0682 0.1115 0.1813 0.2937 0.4746 0.7661 



0 0.1 0.2 0.3 0.4 0.5 0.6 0.7 0.8 0.9 1 

x - ND Space 



0 0.1 0.2 0.3 0.4 0.5 0.6 0.7 0.8 0.9 1 

x - ND Space 


0 .0413 


- ND Temperature u - ND Temperature 



0 0.1 0.2 0.3 0.4 0.5 0.6 0.7 0.8 0.9 1 

x - ND Space 



0 0.1 0.2 0.3 0.4 0.5 0.6 0.7 0.8 0.9 1 

x - ND Space 


ND Temperature 



0 0.1 0.2 0.3 0.4 0.5 0.6 0.7 0.8 0.9 1 

x - ND Space 


CHAPTER 31 


31.1 The equation to be solved is 
d 2 T 

— — — = —20 

dx 2 

Assume a solution of the form T = ax 2 + bx + c which can be differentiated twice to give V = 2a. 
Substituting this result into the differential equation gives a = -10. The boundary conditions can 
be used to evaluate the remaining coefficients. For the first condition at x = 0, 

50 = — 1 0(0) 2 + 6(0) + c 

or c = 50. Similarly, for the second condition. 

100 = -10(10) 2 +6(10) + 50 

which can be solved for b = 105. Therefore, the final solution is 

r = -10x 2 + 105x + 50 
The results are plotted in Fig. 31.5. 



31.2 The heat source term in the first row of Eq. (31.26) can be evaluated by substituting Eq. (31.3) 
and integrating to give 

f 2 5 20 ~ X d x = 25 

J o 2.5 

Similarly, Eq. (31.4) can be substituted into the heat source term of the second row of Eq. 
(3 1 .26), which can also be integrated to yield 

r2.5 x — 0 

20 dx = 25 

Jo 2.5 

These results along with the other parameter values can be substituted into Eq. (3 1.26) to give 

0.4 T - OAT =- — (x ) + 25 

1 2 dx 1 


and 




-OAT + 0.4T = (x ) + 25 

1 2 dx 2 

31.3 In a manner similar to Fig. 31.7, the equations can be assembled for the total system, 


f 0.4 -0.4 ] 



— dT(x x ) / dx + 25 

1 

o 

0 

bo 

1 

o 

t 2 


50 

o* 

1 

00 

o 

^t- 

o 

1 

• T 3 

> = < 

50 

^t- 

o 

1 

00 

0 

^t- 

o 

1 

T, 


50 

-0.4 0.4 J 

T. 


dT(x x ) / dx + 25 


The unknown end temperatures can be substituted to give 


[ 1 -0.4 


dT(x x ) / dx 


5 

O 

00 

1 

o 


t 2 


70 

o 

1 

00 

0 

o 

1 


t 3 

> = < 

50 

00 

o 

o 

1 


t 4 


90 

! -0.4 -1 


— dT(x s ) / dx 


— 15 


These equations can be solved for 


dT{x x ) / dx 


105 

t 2 


250 

t 3 

> = < 

325 

T 4 


275 

—dT(x 5 ) / dx 


-95 


The solution, along with the analytical solution (dashed line) is shown below: 




( 1 ) 


D f ’ - -4 N i (.x)dx 
Jx i dx 

-U P’ — Nj (x)dx 
Jr, dx 

rx 2 

—k I cN t (x)dx 


Term (1): 




N, (x )dx = D\ 


dc 

dx 

dc 

dx 


Oi ) 
(x 2 ) - 


C l C 2 
X 2 — Xj 
c 2 - Cl 
X 2 — x l 


Term (2): 


r *2 dc c 2 - c x 

N i (x)dx=\ 

Jx i dx J x, x 2 — x 1 

\ Xl N i (x)dx= X ^^ 

J x, 2 


N f (x)dx 



dc 

dx 


Nj(x)dx = 


C 2 - Cj 


2 


u r N _ (x)dx = _ LJ ^ 

dx 


Term (3): 


J ’ X 2 _ 

c N t (x) dx = — 

X, 


k(x 2 - Xj) j q 


Total element equation [(1) + (2) + (3)] 


a n a \\ 



where 


D U k 

1 

x 2 - Xj 2 2 


+ — \x 2 - x x ) 


-D U 

1 

x 2 - x l 2 


D U k, , 

«22 = + T + ~ X l) 

x 2 — JCj 2 2 


( 2 ) 

(3) 


-D U 

2 ~ X l ^ 



, dc . . , ^dc , 

b x =- D —(x x ) b 2 =D — (x 0 ) 

ax ax 

31.5 First we can develop an analytical function for comparison. Substituting parameters gives 

1.5 x 10 8 c Lj L L = 50 
dx 

Assume a solution of the fonn 


u = ax’ +bx + c 

This can be differentiated twice to yield cbuldx 1 = 2a. This can be substituted into the ODE, 
which can then be solved for a = 1 ,6667x 1 0 ? . The boundary conditions can then be used to 
evaluate the remaining coefficients. At the left side, u(0) = 0 and 

0 = 1.6667 xl0“ 7 (0) 2 + 6(0) + c 


and therefore, c = 0. At the right side of the bar, m( 30) = 0 and 
0 = 1.6667 x10“ 7 (30) 2 +6(30) 


and therefore, b = — 5x 1 0 6 , and the solution is 

u = 1.6667 x 10- 7 x 1 - 5 x 10“ 6 x 
which can be displayed as 





du 



r*2 

" 1 -f 

W = A C E< 

--r(* i) 
dx 

■ + < 

J 

P(x)N l (x)dx 

hi 

-1 1 

Kj c 

du 

— (^ 2 ) 

[ dx J 

J 

P{x)N 1 {x)dx 


The distributed load can be evaluated as 

f6 6 — X r6 r — 0 

-50 dx = -150 -50 dx = -150 

Jo 6 Jo 6 


Thus, the final element equation is 




2.5 xlO 7 
-2.5 xlO 7 


-2.5 xlO 7 If u x 
2.5 xlO 7 \u 2 


: A C E\ 


du 


dx 

du 


Oi) 


dx 


(x 2 ) 


+ 



Assembly yields 




du , 



" 1.5 xlO 8 -2.5 xlO 7 


— (Xi) 

dx 


-150 

5 xlO 7 -2.5 xlO 7 


M| 


-300 

-2.5 xlO 7 5 xlO 7 -2.5 xlO 7 


M| 


-300 

-2.5 xlO 7 5 xlO 7 -2.5 xlO 7 


Mj 


-300 

-2.5 xlO 7 5 xlO 7 


u x 


-300 

-2.5 xlO 7 -1.5 x 10 7 J 


du , 


-150 



[dx J 




which can be solved for 


du , 



— Ui) 
dx 


-5x 10 -6 ' 

I/, 


-2.4 x 10“ 5 

M| 

. = < 

-3.6 x 10 -5 

I/, 


-3.6 x 10 -5 

I/, 


-2.4 x 10“ 5 

du , 

— (x 2 ) 

L J 


5 x 10 -6 


These results, along with the analytical solution (dashed line) are displayed below: 



31.6 

Option Explicit 
Sub FErodO 

Dim ns As Integer, ii As Integer, i As Integer, j As Integer 
Dim k As Integer, m As Integer 

Dim x(5) As Single, st(2, 2) As Single, c As Single 

Dim s(2, 2) As Single, a(5, 5) As Single, b(5) As Single, d(5) As Single 
Dim Te(5) As Single, ff As Single 

Dim e ( 5 ) As Single, f (5) As Single, g ( 5 ) As Single, r ( 5 ) As Single 

Dim duml As Single, dum2 As Single 

Dim dTeLeft As Single, dTeRight As Single 


'set parameters 




ns = 4 
x ( 1 ) = 0 
x (2) = 2.5 
x ( 3 ) = 5 
x ( 4 ) = 7.5 
x ( 5 ) = 10 
Te (1) = 40 
Te (5) = 200 
ff = 10 

' construct system matrix 

st(l, 1) = 1: st(l, 2) = -1: st(2, 1) = -1: st(2, 2) = 1 
For ii = 1 To ns 

c — 1 / (x (ii + 1) - x (ii) ) 

For i = 1 To 2 
For j = 1 To 2 

s(i, j) = c * st ( i , j) 

Next j 
Next i 

For i = 1 To 2 
k = ii - 1 + i 
For j = 1 To 2 
m = ii - 1 + j 
a(k, m) = a(k, m) + s (i, j) 

Next j 

b (k) = b(k) + ff * ( (x (ii + 1) - x(ii)) - (x(ii + 1) - x(ii)) / 2) 

Next i 
Next ii 

'determine impact of uniform source and boundary conditions 
Call Mmult(a(), Te(), d(), ns + 1, ns + 1, 1) 

For i = 1 To ns + 1 
b(i) = b(i) - d(i) 

Next i 
a (1, 1) = 1 
a (2, 1) = 0 

a (ns +1, ns + 1 ) = -1 
a(ns, ns + 1) =0 

'Transform square matrix into tridiagonal form 
f(l) = a ( 1 , 1) 
g (1) = a ( 1 , 2) 
r ( 1 ) = b ( 1 ) 

For i = 2 To ns 

e (i) = a (i, i - 1) 
f (i) = a (i, i) 
g (i) = a (i, i + 1) 
r (i) = b (i) 

Next i 

e (ns + 1) = a(ns + 1, ns) 

f (ns + 1) = a (ns + 1, ns + 1) 

r (ns + 1 ) = b (ns + 1 ) 

'Tridiagonal solver 
duml = Te (1) 
dum2 = Te (ns + 1) 

Call Tridiag(e, f, g, r, ns + 1, Te ( ) ) 
dTeLeft = Te ( 1 ) 
dTeRight = Te (ns + 1) 

Te ( 1 ) = duml 
Te (ns + 1) = dum2 

'output results 
Range ("a3") .Select 

ActiveCell . Value = "dTe (x = " & x(0) & ")/dx = " 

ActiveCell .Offset (0, 1). Select 
ActiveCell . Value = dTeLeft 
ActiveCell .Offset (1, -1). Select 

ActiveCell . Value = "dTe (x = " & x (ns + 1) & ")/dx = " 

ActiveCell .Offset (0, 1). Select 
ActiveCell . Value = dTeRight 
ActiveCell .Offset (3, -1). Select 



For i = 1 To ns + 1 

ActiveCell . Value = x(i) 

ActiveCell .Offset (0, 1). Select 
ActiveCell . Value = Te(i) 

ActiveCell .Of fset (1, -1). Select 
Next i 

Range ("b3") .Select 
End Sub 

Sub Mmult(a, b, c, m, n, 1) 

Dim i As Integer, j As Integer, k As Integer 
Dim sum As Single 

For i = 1 To n 
sum = 0 

For k = 1 To m 

sum = sum + a(i, k) * b(k) 

Next k 
c (i) = sum 
Next i 

End Sub 

Sub Tridiag(e, f, g, r, n, x) 

Dim k As Integer 

' decompose 
For k = 2 To n 

e (k) = e (k) / f(k - 1) 
f (k) = f (k) - e (k) * g(k - 1) 

Next k 
' substitute 
For k = 2 To n 

r ( k) = r (k) - e(k) * r (k - 1) 

Next k 

x (n) = r (n) / f (n) 

For k = n - 1 To 1 Step -1 

x(k) = (r(k) - g ( k) * x(k + 1)) / f(k) 

Next k 
End Sub 


The output is 



A 

B 

C 

D 

E 

1 

Prob31.6 





2 






3 

dTe(x = 0)/dx = 

66 


RUN 


4 

dTe(x = 10)/dx = 

-34 



5 






6 

X 

Te 




7 

0 

40 




8 

2.5 

173.75 




9 

5 

245 




10 

7.5 

253.75 




11 

10 

200 





31.7 After setting up the original spreadsheet, the following modifications would be made to insulate 
the right edge and add the sink: 

Cell II: Set to 100 


Cell 12: =(Il+2*H2 + l3)/4; This formula would then be copied to cells 13:18. 

Cell 19: = (I8+H9) /2 

Cell C7: = (C6+D7+C8+B7-110) /4 

The resulting spreadsheet is displayed below: 



A 

B 

C 

D 

E 

F 

G 

H 

1 

1 

87.5 

100 

100 

100 

100 

100 

100 

100 

102.8 

2 

75 

89.6 

96.9 

101.7 

104.9 

105.7 

105.4 

105.1 

105.6 

3 

75 

86.4 

96.2 

105.2 

112.1 

112.4 

110.8 

109.5 

109.2 

4 

75 

85.0 

96.3 

110.8 

126.0 

120.9 

115.9 

113.1 

112.2 

5 

75 

82.2 

93.2 

115.7 

160.1 

129.4 

118.7 

114.6 

113.5 

6 

75 

75.6 

78.4 

98.8 

119.4 

117.9 

114.9 

113.2 

112.6 

7 

75 

66.8 

46.1 

81.8 

100.8 

107.7 

109.9 

110.5 

110.6 

8 

75 

70.3 

67.5 

81.4 

94.3 

102.3 

106.5 

108.4 

108.9 

9 

75 

72.0 

72.2 

82.0 

92.8 

100.7 

105.3 

107.6 

108.2 


Corresponding contour plots can be generated as 



31.8 The results of the preceding problem (31.8) can be saved as a tab-delimited text file (in our case, 
we called the file prob3108.txt). The following commands can then be used to load this file into 
MATLAB, as well as to generate the contour plot along with heat flow vectors. 

>> load prob3108.txt 
>> [px, py] =gradient (prob3108 ) ; 

>> cs=contour (prob3108 ) ; clabel (cs ) ; hold on 
>> quiver (-px, -py) ; hold off 


I 



31.9 The scheme for implementing this calculation on Excel is shown below: 



A 

B 

c 

D 

E 

F 

G 

H 

1 

J 

K 

1 

87.5 

100 

100 

100 

100 

100 

100 

100 

100 

100 

62.5 

2 

75 










25 

3 

75 










25 

4 

75 










25 

5 

75 










25 

6 

62.5 

50 

50 

50 

50 

50 

50 

50 

50 

50 

37.5 


The simple Laplace equation applies directly to the blank white cells (recall Fig. 31.14). 
However, for the shaded cells impacted by the heat sink, a heat balance equation must be 
written. For example, for cell E3, the control volume approach can be developed as 

a ,,E3 — D 3 . . j,F3—D3. . ,,E3—E4. . .,E2—E3. . , AA . » 

0 = — k AyAz + k AvAz — k A xAz + k AxAz — lOOArAj; 

Ar Ax Ay Ay 


Collecting and canceling terms yields 


0 = -AE3 +D3+F3 + E4 + D3 - 100 

A zk' 

Substituting the length dimensions and the coefficient of thermal conductivity gives, 


E 3 = 


D3 + F3 + £4 + 03-160 
4 


The result is depicted below, along with the corresponding contour plots. 



A 

B 

C 

D 

E 

F 

G 

H 

1 

J 

K 

1 

87.5 

100 

100 

100 

100 

100 

100 

100 

100 

100 

62.5 

2 

75 

74.0 

62.0 

40.2 

10.1 

-1.5 

7.9 

34.7 

50.8 

51.3 

25 

3 

75 

59.0 

33.7 

-11.2 

-98.2 

-123.8 

-101.8 

-19.8 

17.3 

29.2 

25 

4 

75 

53.1 

25.3 

-20.7 

-108.0 

-133.7 

-111.6 

-29.2 

8.8 

23.4 

25 

5 

75 

53.3 

34.9 

11.2 

-19.5 

-31.3 

-21.8 

5.7 

23.8 

30.5 

25 

6 

62.5 

50 

50 

50 

50 

50 

50 

50 

50 

50 

37.5 



31.10 The results of the preceding problem (31.10) can be saved as a tab-delimited text file (in our 
case, we called the file prob3110.txt). The following commands can then be used to load this 
file into MATLAB, as well as to generate the contour plot along with heat flow vectors. 

>> load prob3110.txt 
>> [px,py] =gradient (prob3110) ; 

>> cs=contour (prob3110) ; clabel (cs) ;hold on 
>> quiver ( -px, -py) ; hold off 



31.11 

Program Plate 
Use IMSL 
Implicit None 

Integer :: ncval , nx, nxtabl, ny, nytabl 

Parameter (ncval=ll, nx=33, nxtabl=5, ny=33, nytabl=5) 

Integer: :i, ibcty(4), iorder, j, nout 

Real : : ax, ay, brhs, bx, by, coefu, prhs, u (nx, ny) , utabl, x, xdata (nx) , y, ydata (ny) 
External brhs, prhs 
ax = 0 
bx = 40 
ay = 0 
by = 40 
ibcty(l) = 1 
ibcty(2) = 2 
ibcty(3) = 1 
ibcty(4) = 1 
coefu = 0 
iorder = 4 

Call FPS2H(prhs, brhs, coefu, nx, ny, ax, bx, ay, by, 

Do i=l, nx 

xdata (i) = ax + (bx - ax) * Float (i - 1) / Float (nx 
End Do 
Do j=l, ny 

ydata (j) = ay + (by - ay) * Float (j - 1) / Float (ny 


ibcty, iorder, u, nx) 
- 1 ) 

- 1 ) 



End Do 

Call UMACH ( 2 , nout) 

Write (nout, ' (8X, A, 11X, A, 11X, A) ' ) 'X', 'Y', 'U' 

Do j=l, nytabl 
Do i=l, nxtabl 

x = ax + (bx - ax) * Float (i - 1) / Float (nxtabl - 1) 
y = ay + (by - ay) * Float (j - 1) / Float (nytabl - 1) 
utabl = QD2VL (x, y, nx, xdata, ny, ydata, u, nx, . FALSE . ) 
Write (nout, ' (4F12.4) ') x, y, utabl 
End Do 
End Do 
End Program 

Function prhs (x, y) 

Implicit None 
Real : : prhs , x, y 
prhs = 0 
End Function 

Real Function brhs(iside, x, y) 

Implicit None 
Integer : : iside 
Real : : x , y 
If (iside == 1) Then 
brhs = 50 

Elself (iside == 2) Then 
brhs = 0 

Elself (iside == 3) Then 
brhs = 75 
Else 

brhs = 100 
End If 

End Function 


Output: 


0 . 0000 

0 . 0000 

75.0000 

10 . 0000 

0 . 0000 

71 . 6339 

20 . 0000 

0 . 0000 

66.6152 

30 . 0000 

0 . 0000 

59.1933 

40 . 0000 

0 . 0000 

50 . 0000 

0 . 0000 

10 . 0000 

75.0000 

10 . 0000 

10 . 0000 

72.5423 

20 . 0000 

10 . 0000 

67 . 9412 

30 . 0000 

10 . 0000 

60 .1914 

40 . 0000 

10 . 0000 

50 . 0000 

0 . 0000 

20 . 0000 

75.0000 

10 . 0000 

20 . 0000 

75 . 8115 

20 . 0000 

20 . 0000 

72 . 6947 

30 . 0000 

20 . 0000 

64 . 0001 

40 . 0000 

20 . 0000 

50 . 0000 

0 . 0000 

30 . 0000 

75.0000 

10 . 0000 

30 . 0000 

83.5385 

20 . 0000 

30 . 0000 

83.0789 

30 . 0000 

30 . 0000 

74.3008 

40 . 0000 

30 . 0000 

50 . 0000 

0 . 0000 

40 . 0000 

87.5000 

10 . 0000 

40 . 0000 

100 . 0000 

20 . 0000 

40 . 0000 

100 . 0000 

30 . 0000 

40 . 0000 

100 . 0000 

40 . 0000 

40 . 0000 

75.0000 


Press any key to continue 



31.12 


Element No. 1 
Node No. 1 


X9* + /(*) = 0 

fc 4 s | I + fc 4 (^>^- 7 ' 1 ) ) + C iV ‘ /w ‘ to = 0 
(- 100 i| I + ilr (r * " T ' ) ) + Cpifr) 30 '** = 0 


lCKrj - t 2 ) = -ioo^ + 150 


Node No. 2 


«§ 2 -“(^) <r = - : r ->J ■ * C, N > fMd * - 0 

100 (O|,- i ^ (r2 ' r,) l + C^) 30 * - 0 


-io(r x - r 2 ) = ioo^- + iso 


Other node equations are derived similarly 


Element No. 2 
Node No. 2 


Node No. 3 


io(r 2 -r 3 ) = -ioo^ +150 


-10 (T 2 -T 3 ) = ^~ +150 


Other element equations are similar. 
Equation Assembly 


10 -10 0 0 0 0 

-10 20 -10 0 0 0 

0 -10 20 -10 0 0 

0 0 -10 20 -10 0 

0 0 0 -10 20 -10 

0 0 0 0 -10 10 


100^ +150 
dx 6 



Inserting Boundary Conditions 


125 

300 

300 

300 

1300 

-850 


% Solution of Linear Algebraic Equation 
% Prcblsn 31.1 
% Equation foam Cx=b 


C=[ 10 

-10 

0 

0 

0 

0; 

-10 

20 

-10 

0 

0 

0; 

0 

-10 

20 

-10 

0 

0; 

0 

0 

-10 

20 

-10 

0; 

0 

0 

0 

-10 

20 

0; 

0 

0 

0 

0 

-10 

-100] ; 

b=[125 

300 

300 300 

1300 

-850] 1 ; 



%Solution fcy inverse of A 
%ffetri>c Bqn. Ftarm A*Jt=b 
x=inv(C) *b; 
fprintf ( 1 %5 . If \n' ,x) 

» 

462.5 

450.0 

407.5 

335.0 

232.5 
-14.8 
» 


10 -10 0 0 0 0 T 2 

-10 20 -10 0 0 0 T 

0 -10 20 -10 0 0 + T 3 

0 0 -10 20 -10 0 4 

0 0 0 -10 20 0 75 

0 0 0 0 -10-100 dT I 



31.13 


Element No. 1 
Node No. 1 


Node No. 2 


£»*+/(*) = o 

1 + K^> r ’- r ' ) ) + J > /w ‘ i,=0 

- <L + T5 <t 2 - ri) ) + JoT 1 !?) 30 * = 0 


JT 

dx 


9.5 (T x -T 2 ) = -loog 


+ 150 


JT 


Kf)|rii (r2 ' ri) ) + C(Tr> 0<fa =° 


-9.5(T X -T 2 ) = 90^ +150 


Other node equations are derived similarly 


Element No. 2 
Node No. 2 


Node No. 3 


Element No. 3 
Node No. 3 


Node No. 4 


Element No. 4 
Node No. 4 


Node No. 5 


8.5(7- 2 -r,) = -90^ 


-8.5(r 2 -r 3 ) = 80^ 


7.5(7- 3 -r 4 ) = -80^ 


-7.5(r 3 -r 4 ) = 7og 


6.5 (T 4 -T 5 ) = -70^ 


-6.5(T a -T s ) = 60^ 


+ 150 

2 

+ 150 


+ 150 

3 

+ 150 


+ 150 

4 

+ 150 



Element No. 5 
Node No. 5 


Node No. 6 


5.5(r 5 -T 6 ) = -60- 


dr 

dx 


+ 150 


-5.5(7-, - r 6 ) = 5og 


+ 150 


Equation Assembly 









r. 


-100^ 

+ 150 

9.5 

-9.5 

0 

0 

0 

0 


1 1 


dx 

l 

-9.5 

18 

-8.5 

0 

0 

0 


T 2 


300 

0 

-8.5 

16 

-7.5 

0 

0 

+ 

T 3 


300 

0 

0 

-7.5 

14 

-6.5 

0 


t 4 


300 

0 

0 

0 

-6.5 

12 

-5.5 


T 5 


300 

0 

0 

0 

0 

-5.5 

5.5 


T 


dT 









T 6 


50-3- 


+ 150 








dx 

6 



Inserting Boundary Conditions 








dT 



r 





“1 


dx 



n _ 

100 

- 9.5 

0 

0 

0 

0 



1 


-800 

0 

18 

- 8.5 

0 

0 

0 


1 2 


1200 

0 

- 8.5 

16 

- 7.5 

0 

0 

+ 

T, 


_ 

300 

0 

0 

- 7.5 

14 

- 6.5 

0 


T* 


300 

0 

0 

0 

- 6.5 

12 

0 


T, 



575 

0 

0 

0 

0 

- 5.5 

-50 





!25 








dT 










dx 

6 




% Solution of Linear Algebraic Equation 
% Problem 31.1 
% Equation form Oe=b 


C=[ 10 

-10 

0 

0 

0 

0; 

-10 

20 

-10 

0 

0 

0; 

0 

-10 

20 

-10 

0 

0; 

0 

0 

-10 

20 

-10 

0; 

0 

0 

0 

-10 

20 

0; 

0 

0 

0 

0 

-10 

-100]; 

b=[125 

300 

300 300 

1300 

-850] ' ; 



%Solution fcy inverse of A 
%1fe.tr ix Eqn. Earn A*x=b 
x=inv(C) *b; 

fprintf ('%5.1f \n' ,x) 


» 

7.2 

159.7 

197.1 

199.4 

155.9 

- 19.7 

» 




